Bei Stretch passt sich ja nicht das Formular an, sondern das Bild in der Komponenten.
Da mußt das Formular anpassen. Am besten machst du das in OnActivate. Also zuerst laden, dann mit ShowModal aufrufen und zuletzt in OnActivate eine Berechnung durchführen.
Zuerst aus dem Bild die Größe ermitteln. Nicht die Größe von TImage, sondern von dem Bild, z. B. Image.Picture.Bitmap.Width. Hier kriegst du die Höhe und Breite des Bildes her. Dann ClentWidth und ClientHeight anpassen, nicht Form.Width und Height. So wild das Formular an das Bild angepasst.
//Edit:
Würde so aussehen. Und mach auch Stretch und Proportional aus.
Delphi-Quellcode:
procedure Tfrm_Bild.FormActivate(Sender: TObject);
begin
ClientWidth := Image1.Picture.Width;
ClientHeight := Image1.Picture.Height;
end;