1. Format 함수 사용
Edit1.Text := Format('%.3d', [StrToInt(Edit2.Text)]);
2. FormatFloat 함수 사용
Edit1.Text := FormatFloat('000', StrToInt(Edit2.Text));