var Word1, Dokument1: OleVariant; 
 
function CentimetersToPoints(wert: single): single; 
begin 
  result := wert * 28.35; 
end; 
 
procedure TForm1.Button5Click(Sender: TObject); 
var 
  oben_inZentimetern, 
    links_inZentimetern, 
    rechts_inZentimetern, 
    unten_inZentimetern: single; 
begin 
  links_inZentimetern := 5.5; 
  oben_inZentimetern := 4.4; 
  rechts_inZentimetern := 3.3; 
  unten_inZentimetern := 2.2; 
  Word1 := CreateOleObject('Word.Application'); 
  Dokument1 := Word1.Documents.Add; 
  try 
    Dokument1.PageSetup.LeftMargin := CentimetersToPoints(links_inZentimetern); 
    Dokument1.PageSetup.TopMargin := CentimetersToPoints(oben_inZentimetern); 
    Dokument1.PageSetup.RightMargin := CentimetersToPoints(rechts_inZentimetern); 
    Dokument1.PageSetup.BottomMargin := CentimetersToPoints(unten_inZentimetern); 
    Dokument1.SaveAs('C:\test.doc'); 
  finally 
    if not VarIsEmpty(Word1) then Word1.Quit; 
  end; 
end;