[eXplorer]

дурак я... прошу прощения за за этот флуд...
разобрался:

Код:

procedure TMyThread.Execute;
var
i2:integer;
begin
for i2:=1 to 10000 do begin
 cs.enter;
  S:=inttostr(i2);
  Synchronize(Avatar);
end;
  cs.leave;
end;

тему можно закрывать)