procedure TForm1.Button1Click(Sender: TObject);
var
bitmap: TBitmap;
begin
bitmap := TBitmap.Create;
try
bitmap.LoadFromFile('D:\bitmap.bmp');
//..............
finally
bitmap.Free;
end;
end;
var
bitmap: TBitmap;
begin
bitmap := TBitmap.Create;
try
bitmap.LoadFromFile('D:\bitmap.bmp');
//..............
finally
bitmap.Free;
end;
end;
begin
Image1.Picture.LoadFromFile('c:\aaa.bmp');
end;