Performance bei vielen Images & Auflösung

[Hallo_Thomas]

Das Klappt,erstes Problem gelöst

Delphi-Quellcode:

   iTag := IntToStr(i);
      (FindComponent('Images'+(iTag)) as TImage).Picture.Assign(Rot);
     (FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.Font.Size:=20;
      (FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.Brush.Style := bsClear;
      (FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.Handle:=Transparent;
    (FindComponent('Images'+((iTag))) as TImage).Picture.Bitmap.Canvas.TextOut(27, 32, '100');

Jetzt bleiben noch 2 übrig