[roman]

Parece ser que ese es el límite.

Prueba este par de funciones:

Código Delphi [-]
uses StrUtils;

function LPad(S: String; Len: Integer; Ch: Char): String; overload;
begin
  Len := Len - Length(S);
  if Len < 0 then Len := 0;
  Result := DupeString(Ch, Len) + S;
end;

function LPad(D: Integer; Len: Integer; Ch: Char): String; overload;
begin
  Result := LPad(IntToStr(D), Len, Ch);
end;

Uso:

Código Delphi [-]
Edit1.Text := LPad(15, 32, '0'); // devuelve '15' precedido de 30 ceros
Edit1.Text := LPad('hola', 32, '#'); // devuleve 'hola' precedido de 28 '#'

// Saludos