... и еще так:
function ReadBitmapFromFile(FileName:String):TBitmap;
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile(FileName);
Form1.Image1.Picture.LoadFromFile(FileName);;
Result.Assign(bmp);
end;
......
if OpenDialog1.Execute then
map[1].Assign(ReadBitmapFromFile(OpenDialog1.FileName));
|