Работа с Edit(Delphi)

[Azamat0]

Здравствуйте.
Возник вопрос , сколько не искал решения в инете не нашёл, вот вопрос:
Даны 4-е Edit , при заполнение Edit1 в тот же момент выводились ответы в другие Edit(2,3,4), при этом не нажимая ни на какую кнопку, а вводишь число в одно поле ,а в других сразу подсчитывается ответ.
Заранее спасибо)))

[Vanta11a]

Пробовали работать с событием ОnСhange() или OnKeyPress() ?

[arrowsf1]

можно таймером

ПС
Шутка в стиле хакерства

[Zer0]

Полностью согласен с Vanta11a
А таймер... Неужели Вы колбасу будильником режете?

[Azamat0]

С OnKeyPress() пробовал , но какой именно написать код не помню, но и не получалось(((
А вот ОnСhange() не пробовал сейчас попробую)))

[Azamat0]

Пожалуйста напишите код, сколько не ломал голову и не искал, учебники обшарил, не нашёл ни одного примера кода на мой вопрос.

[Vanta11a]

Вот пример

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

Есть вводимый символ, пишем что-то типа

Edit2.text := Edit2.text + key;

И так для всех edit`ов.

Неправильно прочитал задание. Вам нужно событие OnKeyUp(), срабатывает после ввода цифры. Т.е. и после последней сработает.
Не помню список всех событий, но точно есть событие вида "конец редактирования", лучше всего найти его.

[Noor]

Да, лучше через Edit1KeyUp

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Edit2.Text := IntToStr(Strtoint(Edit1.Text)+1);
Edit3.Text := IntToStr(Strtoint(Edit2.Text)+Strtoint(Edit1.Text));
Edit4.Text := IntToStr(Strtoint(Edit3.Text)+Strtoint(Edit2.Text)+Strtoint(Edit1.Text));
end;

[Azamat0]

Огромное спасибо за помощь!!!