вот тогда так... для примера (рисую на image.canvas) черные пикселы в случайном месте...
Код:
var
i,h,w,k:integer;
begin
k:=0;
for i:=1 to image1.Height+image1.Width do begin
h:=random(image1.Height);
w:=random(image1.Width);
image1.Canvas.Pixels[w,h]:=clBlack;
sleep(10);
k:=k+1;
application.ProcessMessages;
end;
showMessage(inttostr(k));
end;