Richedit margen

Jeg er igang med at lave et skriveprogram i RichEdit og har fundet et udskrivnings kode her på eksperten. Den laver en venstre margen ved en udskrivning, men ikke nogen højre margen. Jeg har sat richedits align til AlClient og dette medfører at skriften overskrider papirets højre grænse. Min kode er:

procedure TForm1.MUdskrivClick(Sender: TObject);      //udskrivning
var
  I, XPixelsPrTomme, YPixelsPrTomme, Margen,
  LinieHoejde, LinieTaeller: Integer;
begin
  if PrintDialog.Execute then
begin
  Richedit.WordWrap:=true;
  Printer.Canvas.Font := Richedit.Font;
  XPixelsPrTomme := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
  Margen := XPixelsPrTomme; // - altså én tomme
  YPixelsPrTomme := GetDeviceCaps(Printer.Handle, LOGPIXELSY);
  LinieHoejde := Round(Abs(Printer.Canvas.Font.Size) / 72 * YPixelsPrTomme * 1.40);
  LinieTaeller := 3;
  Printer.BeginDoc;
  for I := 0 to Richedit.Lines.Count - 1 do
begin
  Inc(LinieTaeller);
  Printer.Canvas.TextOut(Margen, LinieTaeller * LinieHoejde, Richedit.Lines.Strings[I]);
  end;
  Printer.EndDoc;
end;


Takker på forhånd