Wie wäre es, eine Funktion zu erstellen, welche das Padding mit Leerzeichen übernimmt...
Delphi-Quellcode:
function RightPadding(const Value: String; Len: String): String;
var
I: Integer;
begin
Result := Value;
SetLength(Result, Len);
for I := Succ(Length(Value)) to Len do
Result[I] := #32;
end;
...
...