timer zu langsam?

[SleepyMaster]

Dann schreib den Thread halt so um:

Delphi-Quellcode:

procedure Thread;
begin
try
while run do
  begin
  x:=x+1;
  if Form1.SpinEdit2.Value<>0 then
    sleep(Form1.SpinEdit2.Value);
  Form1.Canvas.Lock;   //  von himitsu 
  Form1.canvas.Pixels[Random(form1.Width), Random(Form1.Height)] := clRed;
  Form1.Canvas.UnLock; //  von himitsu 
  end;
except end;
end;