Wenn du (so wie ich das verstanden habe) am Anfang jedes Strings Leerzeichen anhängen willst, bis der String 10 Zeichen lang ist, würde ich das so machen:
Delphi-Quellcode:
while Length(str) < 10 do
s := ' ' + s;
Edit: Obwohl, besser so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
stri: String;
const
Len = 10;
begin
stri :=Edit1.Text;
stri := StringOfChar(' ', Len - Length(stri)) + stri;
Memo1.Lines.Add(stri);//oder was auch immer zur Ausgabe
end;