Und falls mal einer der Strings zu kurz ist hilft vielleicht das:
Delphi-Quellcode:
function RightPad(s: string; padChar: char; size: byte): string;
begin
if Length(s) < size
then Result := s + StringOfChar(padChar, size - Length(s))
else Result := s;
end;
Grüße vom marabu