Задержка Опции

[Koresh]

Есть sleep(); но с ним программа как бы зависает. Я эту процедуру в цикле использую. Есть что-либо подобное sleep'a? Или как-то по другому надо ее использовать?

[Koresh]

procedure TForm1.MFileMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var i:integer;
begin
 form1.Canvas.Pen.Color:=clred;
 for i:=0 to 99 do
   begin;
     sleep(1);
     form1.Canvas.MoveTo(50,i+50);
     form1.Canvas.LineTo(100,i+50);
   end;
end;

procedure TFile.CMMouseLeave(var msg: TMessage);
var i:integer;
begin
  inherited;
  form1.Canvas.Pen.Color:=clBtnFace;
  for i:=99 downto 0 do
    begin;
      sleep(1);
      form1.Canvas.MoveTo(50,i+50);
      form1.Canvas.LineTo(100,i+50);
   end;
end;

Две процедуры: одна при наведении, другая при отведении... Куда этот sleep поставить... я с TThread не понял