1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
picture: TPicture;
bitmap: TBitmap;

begin
picture := TPicture.Create;
//bitmap := Tbitmap.Create;
if OpenDialog1.Execute then
    begin
    //bitmap.LoadFromFile(OpenDialog1.FileName);
    picture.LoadFromFile(OpenDialog1.FileName);
    Image1.Picture := picture;
    //Image1.Canvas.Draw(0,0,bitmap);
    //bitmap.Free;
    end;

end;					

1:
2:
3:

Image1.Width:= 512;
Image1.Height:= 512;
Image1.Stretch:= true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var bitmap : TBitmap;
    arect  : TRect;

begin
  if OpenDialog1.Execute then
  begin
    bitmap := Tbitmap.Create;
    bitmap.LoadFromFile(OpenDialog1.FileName);
    aRect.Left   := 0;
    aRect.Top    := 0;
    aRect.Right  := 512;
    aRect.Bottom := 512;
    image1.Canvas.StretchDraw(aRect, bitmap);
    bitmap.free;
  end;					

1:

image1.Canvas.StretchDraw(Rect(0,0,512,512), bitmap);					

1:

Image1.Picture.LoadFromFile('c:\a.bmp');					

1:

Image1.Picture.Bitmap.LoadFromFile('c:\a.bmp');					

1:

Image1.Picture.LoadFromFile('c:\a.bmp ');