[roman]

O esta:

Código Delphi [-]
function LPad(S: String; Ch: Char; Len: Integer): String;
begin
  Result := StringOfChar(Ch, Len - Length(S)) + S;
end;

ShowMessage(LPad('345', '0', 10));

// Saludos