[lmikle]

Ну так и записывать. Формировать строку для записи с добавлением нужного кол-ва пробелов. Например, с помощью такой функции:

Код:

function SetStrLength(AData : String; ALength : Integer) : String;
begin
  Result := AData;
  If Length(Result) > ALength 
    Then Result := Copy(Result,1,ALength)
    Else
      While Length(Result) < ALength Do Result := Result + ' ';
end;