Procedure Format(MyEdit1,MyEdit2:TEdit);
Var
I : Integer;
S : String;
begin
I := StrToInt(MyEdit1.Text);
FmtStr(S, '%.3d', [I]);
MyEdit2.Text := S;
// I.E. If Edit1.Text := '1' den Edit2.Text := '001'; döndürür
end;