Tabelle mit eigenem Text drucken

[Marcel_Mars]

Hallo es ist zwar schon länger her aber ich hab noch eine Frage:
Wie kann man das abändern sodass man dreispaltig druckenkann?

Delphi-Quellcode:

function PadRight(const s: String; minLength: Cardinal; padChar: Char = ' '): String;
begin
  if Length(s) < minLength then
  begin
    SetLength(Result, minLength);
    Move(s[1], Result[1], Length(s));
    FillChar(Result[Succ(Length(s))], minLength - Length(s), padChar);
  end else Result := s;
end;

Ich hab schon viel ausprobiert aber es gelang mir bisher nicht.
Vielen dank!

Freundliche grüsse
Mars