Sorry K-H, das hab ich ja prinzipiell genauso gemeint wie du schreibst. Etwa sowas wie...
Delphi-Quellcode:
function LeftPad(S : string; L : Byte) : string;
begin
Result := S;
while length(Result) < L do Result := ' ' + Result;
end;
... dürfte mit String und AnsiString klar kommen, oder?