TImage dynamisch erzeugen und befüllen

[ProLeg]

Hallo ich Programmier gerade einen Bankautomaten welcher bei der Ausgabe von dem Geld die Bilder anzeigen soll.
Da es ja immer nee UNterschiedliche Anzahl von Geldschien und Münzen sind brauch ich auch immer unterschiedlich viele TImage Komponenten. So das ich sie weden der Laufzeit dynamisch mithilfe einer TComponentList erzeuge. NUr ist mein Probelem das er mir die erstellen bilder nicht anzeigt.
Hab mal nur nee klein Code geschriben der das gleiche macht gepostet:
Hinweis:
TMoneyOut ist das Formular auf welchen das TImage angezeigt werden sollen.

Delphi-Quellcode:

procedure TMoneyOutput.BtnGetMoneyClick(Sender: TObject);
{---------------------------------------------------------------------------------------------------
Beschreibung:

---------------------------------------------------------------------------------------------------}
var
   I,J : Integer;
   PrintOut : TMoneyBoxArray;
   Text : String;
   betrag : double;
   WidthCounter : Integer;
   HeigthCounter : Integer;
   path : String;
   ImageList : TComponentList;
   ListIndex : Integer;
   img : TImage;
   pic : TPicture;
begin
   pic := TPicture.Create;
   Text := '';
   img := TImage.Create(self);
   img.Picture.LoadFromFile('img/10.bmp');
   img.AutoSize := true;
   img.Width := 20;
   img.Height := 20;
   img.Update;
   img.Align := alnone;
   img.Visible := true;
   img.Enabled := true;
   img.Show;
   img.BringToFront;
   img.Refresh;
   img.Repaint;
end;

Wie ihr seht hab ich schon viel ausprobiert damit er mir das Bild anzeigt. Hab auhc schon die ganz Form refesht und auch self.repaint ausprobiert. Bring alles nicht.

Hoff das mit jemand weiterhelfen kann hab nähmlich keien plan mehr

MfG
ProLeg

[taaktaak]

Benötigt das Image vielleicht einen Parent?

[turboPASCAL]

Ja. ;)

Delphi-Quellcode:

//...
begin
   pic := TPicture.Create;
   Text := '';
   img := TImage.Create(self);
   img.Parent := Self; // <--<< { bzw. FormX }
   img.Picture.LoadFromFile('img/10.bmp');
  //...

[mashutu]

Insertcontrol <Ctrl-F1>

[ProLeg]

Wo gebeb ich den Parent an bzw. was ist der Parent??
Bin noch reltiv neu in Delphi??
was Macht die Pic Variable(Component) in den Code??

[DeddyH]

Das musst Du doch wissen, er hat ja nur Deinen Code kopiert und erweitert.

[ProLeg]

Achja ja hat ich erfolgreich verdrängt aber jetzt klappt alles viel dank für eure hilfe.
Thx ProLeg