Form zur Laufzeit mit Bitmap erzeugen

[kalmi01]

Hi,
ich hätte da gern mal ein Problem.
Ich möchte zur Laufzeit ein neues Form erzeugen (was auch funktioniert),
auf dem sich eine Bitmap befindet, in die ich mit LoadFromFile ein BMP
lade.

Delphi-Quellcode:

     procedure TForm1.Button1Click(Sender: TObject);
        var
          ZoschImg       : TImage;
          ZoschForm      : TForm;
        begin
          ZoschForm             := Tform.Create(Self);
          ZoschForm.Width       := Form1.Width;
          ZoschForm.Height      := Form1.Height;
          ZoschForm.Left        := Form1.Left;
          ZoschForm.Top         := Form1.Top;
          ZoschForm.BorderIcons := [];
          ZoschForm.BorderStyle := bsNone;
          ZoschForm.Show;

          ZoschImg := TImage.Create(ZoschForm);
          ZoschImg.Picture.Bitmap.LoadFromFile('E:\DATEN\Bilder\pinguin2.bmp');
          zoschimg.Show;
          zoschimg.refresh;

          ZoschForm.BringToFront;
          ZoschForm.refresh;
          Form1.Hide;
        end;

Fehler gibt es keine, aber auch kein Bild.
Das Bild ist natürlich an dem gegebenen Pfad vorhanden.
Mach ich das gleiche auf einem zur Entwicklungszeit erstellten Form inkl. Image, dann funktioniert es.
Irgendwie steck ich in einer mentalen Endlosschleife, egal was ich versuche, nichts will klappen.

Hiilfe
Michael

[Muetze1]

Moin!

Delphi-Quellcode:

ZoschImg := TImage.Create(ZoschForm);
ZoschImg.Parent := ZoschForm;
ZoschImg.Picture.Bitmap.LoadFromFile('E:\DATEN\Bilder\pinguin2.bmp');

MfG
Muetze1

[kalmi01]

Danke !

Gruß
Michael