Drucken von Memo + Überschrift

[jAcK oRsEn]

Hi,

ich drucke hiermit den Inhalt eines Memos aus:

Delphi-Quellcode:

procedure TForm1.ToolButton4Click(Sender: TObject);
var Lines: Integer;
LineHeight: Integer;
ActMemoLine: Integer;
Pages: Integer;
PageLine: Integer;
begin

Printer.BeginDoc;
Printer.Canvas.Font.Name := 'Arial';
Printer.Canvas.Font.Size := 11;
Lines := Printer.PageHeight div Printer.Canvas.TextHeight('Dummy');
LineHeight := Printer.Canvas.TextHeight('Dummy');
ActMemoLine := 0;



for Pages := 1 to (Memo1.Lines.Count div Lines) + 1 do
begin
     for PageLine := 0 to Lines - 1 do
     begin

          if ActMemoLine < Memo1.Lines.Count then
          begin
          Printer.Canvas.TextOut(150, PageLine * LineHeight + 150, Memo1.Lines[ActMemoLine]);
          end
          else
          begin
          Printer.EndDoc;
          exit;
          end;
     Inc(ActMemoLine);
     end;
if ActMemoLine < Memo1.Lines.Count then
Printer.NewPage;
end;
Printer.EndDoc;
end;

Wie kann ich jetzt dem Text noch eine Überschrift geben...Praktisch das der Drucker über dem Text ne überschrift druckt?

Die Überschrift steht in tabsheet1.caption