[Страдалецъ]

Хоть и изврат, но можно.
Примерно так:

Код:

procedure TForm1.FormActivate(Sender: TObject);
Var
  t: LongInt;
begin
t := GetTickCount;
repeat
 if GetTickCount-t >= 100
 then begin
        //Здесь помещаете ваш модуль для отрисовки
        Form1.Left := Form1.Left + 1;
        if Form1.Left+Form1.Width > Screen.Width
        then Form1.Left := 0;
        t := GetTickCount;
        end;
 Application.ProcessMessages;
until false;
end;

Но как остановить сей процесс выдумывайте сами