Erstellen von Komponenten zur Laufzeit

[Cicaro]

Hallo !

Ich hab' ein Problem mit dem Createn von Komponenten im Code. Menus lassen sich ganz einfach zur Laufzeit erstellen, allerdings geht es mit den TImages nicht so einfach. So - dachte ich mir - mach' ich das:

Delphi-Quellcode:

var
 im: TImage;
 Form1: TForm1;

procedure TForm1.FormCreate(Sender: TObject);var x,y:Integer;
begin
 im:=TImage.Create(Self);
 with im do
  begin
   Left:=10;
   Top:=10;
   Width:=32;
   Height:=32;
   for x:=0 to Width-1 do
    for y:=0 to Height-1 do
     Canvas.Pixels[x,y]:=Random($1000000);
   Show;
  end;
end;

Durch das Zeichnen in der Canvas müsste es doch zu sehen sein, doch ich kann es nicht sehen !

Warum ?
Was muss ich noch dabei erledigen ?