[marcoszorrilla]

A modo de ejemplo:

Código Delphi [-]
 Function FillSpaces(cVar:String;nLen:Integer):String;
 begin
 Result:=StringOfChar(' ',nLen - Length(cVar))+cVar;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit1.Text:= FillSpaces(Edit1.Text, 10);
 end;

Un Saludo.