>>198
こんなかんじかな？
フォントと同じ高さの Image1 置いて、ブラシやフォントの色を適当に設定。
Interval を 100 にしたタイマーのイベントに、

with Image1.Canvas do begin
　FillRect(ClientRect);
　TextOut(0,0-T,'１行目');
　TextOut(0,Abs(Font.Height)-T,'２行目');

　Inc(T);
　if T>Abs(Font.Height) then begin
　　T := 0;
　　Timer1.Enabled := False;
　end;
end;

とか書いてみた。T:Integer はどっか消えないところに置いといて(笑