Schroll tekst.

Et forslag :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  x,y : integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Interval := 100;
  timer1.enabled := true;
  y:=210;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  rect : trect;
begin
  rect.Top := 100;
  rect.Left := 50;
  rect.Right := 300;
  rect.Bottom := 200;
  dec(y);
  if Y=50 then Y:=210;
  canvas.TextRect(rect,50, Y ,\'Test test test\');
end;

end.

Jeg har selv fundet ud af det!!