Memo text ausdrucken

[Finki]

Hey,

ich schreib grad eine art texteditor, eigentlich eine Memo componente und ein paar buttons.

Auf jedenfall will ich jetzt den Text in der Memo ausdrucken.

Dann kommt immer ein Fehler und eine verlinkung auf

printers.pas

Code:

//Raise error if Printer.Printing is not Value
procedure TPrinter.CheckPrinting(Value: Boolean);
begin
  if Printing<>Value then
  begin
    if Value then
      raise EPrinter.Create('Printer is not printing')
    else
      raise Eprinter.Create('Printer is printing');
  end;
end;

ich habs auch mal ganz simple gemacht und aus dem Lazarusforum den example code rauskopiert.

http://wiki.lazarus.freepascal.org/Using_the_printer

Code:

procedure TForm1.PrintBtnClick(Sender: TObject);
const
  LEFTMARGIN = 100;
  HEADLINE = 'I Printed My Very First Text On ';
var
  YPos, LineHeight, VerticalMargin: Integer;
  SuccessString: String;
begin
  with Printer do
  try
    BeginDoc;
    Canvas.Font.Name := 'Courier New';
    Canvas.Font.Size := 10;
    Canvas.Font.Color := clBlack;
    LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
    VerticalMargin := 4 * LineHeight;
    // There we go
    YPos := VerticalMargin;
    SuccessString := HEADLINE + DateTimeToStr(Now);   
    Canvas.TextOut(LEFTMARGIN, YPos, SuccessString);
  finally
    EndDoc;
  end;
end;

gleicher Fehler!!!

kann mir einer sagen warum?

im vorraus vielen dank für die antwort (hoffentlich);D

lg

Finki