Stimmt.
Aber mit Verlaub, Dein Code bereitet mir ein wenig Kopfweh.
Hab hier zu Hause kein Delphi, daher untested:
Delphi-Quellcode:
procedure CopySmallBMP(const picSource:TFlashBild; var picTarget:TFlashBild);
var
yi,xi:integer
begin
for xi := 1 to 32 do
for yi := 1 to 32 do
begin
picTarget[xi,yi] := picSource[xi,yi];
end;
end;
Nicht gut, aber besser.