Delphi. Задержка при рисовании

[viron]

Всем добрый день.
Вот столкнулся с проблемой. Надо нарисовать прямую линий, но чтобы
она не сразу выводилась на экран а постепенно. Что-то вроде анимации.
Никак не получаеться это сделать. Подскажите кто нает.
Вот кое-какие наработки есть.

procedure TForm1.Button2Click(Sender: TObject);
var
  x,y: Integer;
begin
  y:= 100;

  for x:= 0 to ClientWidth do
  begin
    WaitForSingleObjectEx(Handle, 300, True); // здесь должна быть задержка
    Canvas.Pixels[x, y]:= clRed;
  end;
end;

Дело в том, что только после выхода из цикла полностью отрисовываеться вся линия

[Serge_Bliznykov]

либо для организации задержки используйте Sleep(НужноеЧислоМиллисекунд) + (обязательно) функцию Application.ProcessMessages;

либо (лучше, но чуть-чуть сложнее) рисовать в таймере...