событие OnChange компонента TEdit.
procedure TForm1.Edit1Change(Sender: TObject);
var
I, Err: Integer;
begin
Edit2.Clear;
Val(Edit1.Text, I, Err);
if Err = 0 then begin
Edit2.Text := Edit2.Text + 'Единиц: ' + IntToStr(StrToInt(Edit1.Text));
Edit2.Text := Edit2.Text + ', Десятков: ' + IntToStr(StrToInt(Edit1.Text) div 10);
Edit2.Text := Edit2.Text + ', Сотен: ' + IntToStr(StrToInt(Edit1.Text) div 100);
Edit2.Text := Edit2.Text + ', Тысяч: ' + IntToStr(StrToInt(Edit1.Text) div 1000);
end else Edit2.Text := 'Введено не числовое значение!';
end;