Richedit printmargner

hey

Jeg havde en kode før hvor jeg kunne printe Richeditens canvas, med margner men da jeg nu har fået lagt paragraph.left og right indent på kan jeg ikke gøre dette mere. Koden jeg havde før var:

procedure TMainform.TbtnPrintClick(Sender: TObject);
var
I, XPixelsPrTomme, YPixelsPrTomme, Margen,
  LinieHoejde, LinieTaeller: Integer;
begin
  if PrintDialog1.Execute then
  begin
    Printer.Canvas.Font := TMDI(ActiveMDIChild).Richedit1.Font;
    XPixelsPrTomme := Round(GetDeviceCaps(Printer.handle, LOGPIXELSX ) * 0.0 );
    Margen := TMDI(ActiveMdiChild).RichEdit1.Paragraph.Leftindent; // - altså én tomme
    YPixelsPrTomme := GetDeviceCaps(Printer.handle, LOGPIXELSX );
    LinieHoejde := Round(Abs(Printer.Canvas.Font.Size) / 72 *
                        YPixelsPrTomme * 1.40);

    LinieTaeller := 3;
    Printer.BeginDoc;
//Erik


    for I := 0 to TMDI(ActiveMDIChild).Richedit1.Lines.Count - 1 do
    begin
      Inc(LinieTaeller);
      Printer.Canvas.Create.TextOut(Margen, LinieTaeller * LinieHoejde, TMDI(ActiveMDIChild).richedit1.Lines.Strings[I]);
    end;
    Printer.EndDoc;
  end;
end;

men nu vil jeg hellere have det så den godt nok laver canvasen men margenen skal være paragraph.leftindent er der nogle som kan hjælpe mig med det?