uses GraphABC;
var
pic:Picture;
begin
pic := Picture.Create('c:\Вашпуть\картинка.jpg'); // создаём экземпляр класса и загружаем из файла изображение
pic.Draw(0,0); // размещаем, где надо
// теперь, при желании:
pic.Clear; // очищаем изображение
pic.Load('c:\Вашпуть\картинка1.jpg'); // загружаем иную картинку
pic.TextOut(10,10,'Моя строка'); // пишем на неё что-либо и так далее
end.
使用命名类实例更容易引用它们。例如,像这样: