Bild zur Laufzeit vergrößert anzeigen und wieder schließen

[needatip]

Hallo,
welche Möglichkeit gibt es ein Bild vergrößert zur Laufzeit auf Click in einem extra Fenster darzustellen?
Soll ich ein gewöhnliches Formular verwenden oder geht das auch mit einem Frame etc ?

Ist das der richtige Ansatz?

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
var Bildform: TForm;
  Img: TImage;
begin
  with Bildform do
  begin
    BildForm := TForm.Create(Self);
    try
      Caption := 'BildForm';
      Width := 640;
      Height := 480;
      Img := TImage.Create(BildForm);
      Img.Align := alClient;
      Img.Stretch := true;
    //Falls Bild existiert anzeigen
      if FileExists('c:\temp\pic1.jpg') then
        Img.Picture.LoadFromFile('c:\temp\pic1.jpg')
      else
        Img.Picture := nil;
      ShowModal;
    finally
    end;
//  Img.Free; // Img
    Free; // Bildform

  end;
end;

Leider wird kein Bild angezeigt.
Und wie kann ich mit welcher Methode beim Anklicken des Bildes das Fenster wieder schliessen, um die Form und das Image wieder freizugeben

[nuclearping]

Img.Parent noch setzen. Weiterhin würde ich erst Create machen und dann "with Bildform do".

Zum Schließen: Img.OnClick.

[needatip]

Ok, funktioniert.

Hilf mir bitte nochmal mit dem OnClick Ereignis.
Wie ruf ich das denn aus der Routine auf?
Steh gerade auf der Leitung.