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;