Performance bei vielen Images & Auflösung

[Hallo_Thomas]

So, hab heut mah versucht datt eh bissl umzusetzen mit dem canvas, aber irgenwie will nix so recht.


Irgendwie is datt rote bild immer vor dem Text

Delphi-Quellcode:

   iTag := IntToStr(i);
    (FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
   (FindComponent('Images'+((iTag))) as TImage).Canvas.TextOut(16, 16, '100');

Klappt nich wirklich, sieht sch... aus.(Siehe Bild links oben der Button)

Delphi-Quellcode:

procedure TForm1.AllMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 itag:wideString;

begin

 iTag := IntToStr((Sender as  TControl).Tag);
 //(FindComponent('Image'+(iTag)) as TImage).Picture.Assign(Buttonunten[(Sender as TImage).Tag]);
 ImageList1.Draw((FindComponent('Image'+(iTag)) as TImage).Canvas, 0, 0, 0);
end;

Klappt so halb, durch die auflösungsveränderung wills nich wirklich.(siehe Bild)
Gibt es da einen Befehl?Noch einmal neuzeichnen oder so?

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
 Form1.Canvas.Draw(0, 0, MainBitmap);
end;