Speicher-Fehler beim create

[Ykcim]

Hallo Zusammen,
hat jemand mal ein einfaches Beispiel, wie so etwas funktioniert?
Wenn ich z.B. die Schrift von einem Memo-Feld ändern möchte, wie müsste ich das mit einer externen Datei machen?
Memo1.Font.Size:=12;

Oder wie kann ich eine Print-Procedure in eine externe Datei auslagern?

Delphi-Quellcode:

procedure TForm_Main.Etikett_drucken;
var   R: TRect;
      Links, Oben: integer;
begin
   Links:=50;
   Oben:=100;
   Printer.BeginDoc;
   //Printer.NewPage;
   Printer.Title:='Ausweis';
   Printer.Canvas.StretchDraw(rect(Links,Oben,1550,140+Oben),Image_Logo.Picture.Graphic);
   Printer.Canvas.Font.Size := 12; // Schriftgröße 15
   Printer.Canvas.Font.Name := 'Verdana'; // Schriftart Verdana
   Printer.Canvas.Font.Style:=[fsUnderline];
   Printer.Canvas.TextOut(Links, Oben+150, 'Besucher-Ausweis');
   Printer.Canvas.Font.Size := 12; // Schriftgröße 12
   Printer.Canvas.Font.Style:=[fsBold];
   Printer.EndDoc;

Ich habe hier keine Idee - kann mir jemand einen Hinweis/MiniBeispiel geben?
Vielen Dank

Patrick