Originariamente inviato da alka
Devi usare la funzione Format per personalizzare la formattazione della versione testuale (string) del numero.
Ciao!
Ho risolto egregiamente cosi':

[Code]

var
Formattazione: string;
begin
Formattazione := Format('00000', [Edit1.Text]);
Edit1.Text:= Formattazione + Edit1.Text;
end;

Grazie