[lmikle]

Понял правильно. Это ты не понял что я написал.

Текст белым - Form1.Image1.Canvas.Font.Color := clWhite;
Что бы двигался -выводи в цикле. Попростому

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  Image1.Canvas.Font.Color := clWhite;
  For I := 10 To 100 Do
    Begin
      Image1.Refresh;
      Image1.Canvas.TextOut(I,50,'fff');
      Sleep(100);
    End;
end;

Правда такой фокус пройдет только если у тебя загружен битмап.