[[AzidRain]]

Puedes usar Format:

Código Delphi [-]
Function CompletaEspacio(MyCadena:String; iCant:Integer):String;
var s:String;
   
begin
  Str(iCant,s);
  Result := Format('%s'+s,[MyCadena]);
  // %s acepta un parametro numerico que indica el ancho del campo 
end;