Wordautomation Zeilenabstand einstellen

[Alfredo]

Delphi-Quellcode:

Var
oWord1: OLEVariant;
oDocument: OLEVariant;
oRange: OLEVariant;

begin
  try
    oWord1 := CreateOleObject('Word.Application');
    oWord1.Visible := True;
    oDocument := oWord1.Documents.Add();
    oRange := oDocument.Range();
    oRange.Font.Name := 'Courier New';
    oRange.Font.Size := 8;
 
    oRange.Text := 'Text1' + chr(13);
    oRange.Move(wdstory);

    oRange.Text := "Text2" + chr(13);
    oRange.Movew(wdStory);
  finally
  end;
end;

Der Zeilenabstand zu Text2 ist leider größer als nächste Zeile.