Цитата:
|
Сообщение от izyaslaw
А что есть Free????  |
Освобождение (разрушение) объекта.
Если написать тоже самое но без конструкции
with, то получится так:
Код:
var
bmp: TBitmap;
begin
bmp := Form1.GetFormImage;
bmp.SaveToFile('D:\Form1.bmp');
bmp.Free;
end;