多行文本输出到画布

/// ////Begin Source
procedure TextToCanvas(mStrings: TStrings; mCanvas: TCanvas; mOffset: TPoint);
{ 将多行文本输出到画布上 }
var
    I: Integer;
    vTextHeight: Integer;
begin
    with mStrings, mCanvas do
    begin
        vTextHeight := TextHeight('|');
        for I := 0 to Pred(Count) do
            TextOut(mOffset.X, mOffset.Y + vTextHeight * I, Strings[I]);
    end;
end; { TextToCanvas }

/// ////End Source
/// ////Begin Demo
procedure TForm1.Timer1Timer(Sender: TObject);
const
{$J+}
    vTop: Integer = -MaxInt; // for Delphi6.0
{$J-}
begin
    if vTop <= -Memo1.Lines.Count * Image1.Canvas.TextHeight('|') then
        vTop := Image1.ClientHeight
    else
        Dec(vTop);
    Image1.Canvas.FillRect(Image1.ClientRect);
    TextToCanvas(Memo1.Lines, Image1.Canvas, Point(0, vTop));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    DoubleBuffered := True; // for Delphi6.0
    { Image1.Transparent := True; //背景 }
    Timer1.Interval := 50;
    Timer1.Enabled := True;
end;
/// ////End Demo