Image strecken nur wenn das Bild > Image.Width ?

[taktaky]

Hallo
wenn so mache, dann wird das Bild in TImage nicht angezeigt !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
     Image1.AutoSize := False;
     Image1.Stretch  := True;
     //Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); // ok
     Image1.Picture.LoadFromFile('test.jpeg'); // so klappt nicht
  end;
// ... jetzt kommt die Überprüfung :
If Image1.Picture.Bitmap.Width < Image1.Width then
Image1.Stretch  := false
else
Image1.Stretch  := true;

end;