Zufallbild auf entstehnde Images

[firespawn]

Hallo,
ich möchte eine Art MEMO Spiel entwerfen, ich habe nun folgendes geschrieben.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var bilder: array[1..6] of TImage;
var i,z,y,zufallbild,zufallliste:integer;
begin
randomize;
i:=1; z:=0; y:=0;
for i:=1 to 6 do
        begin
        zufallliste:=random(3);
        zufallbild:=random(17);
        bilder[i]:=TImage.Create(self);
        bilder[i].Height:=100;
        bilder[i].Width:=100;
                if i > 3 then
                        begin bilder[i].Top:=140; end else
                begin
                bilder[i].Top:=20;
                end;

                if i > 3 then
                        begin z:=z+1; bilder[i].Left:=150*z; end else
                begin
                y:=y+1;
                bilder[i].Left:=150*y;
                end;
        if zufallliste >= 1 then begin ImageList1.GetBitmap(zufallbild,bilder[i].Picture.Bitmap);
        end else
        if zufallliste <= 2 then
        begin ImageList2.GetBitmap(zufallbild,bilder[i].Picture.Bitmap);
        end;

        end;

end;

end.

Nun habe ich überprüft ob das Programm entsprechend .Left .Top richtig setzt -> funktioniert
Ich habe 2 ImageList und beide sind auch gefüllt doch leider ist es nicht möglich irgendwie auf die entstehenden Images, BitMaps zupacken.
Wenn ich ein bereits erschaffenes Image habe und dort etwas hineinlade geht das doch wenn ich die erst auf (create) erstellt geht das nicht, hat jemand eine Idee.

Vielen Dank
Fire

[firespawn]

Fehler gefunden.

Ich sag nur .self

Vielen Dank
Fire

[Robert_G]

Ich kann da keinen Krümel .net-Code sehen.