Автоматическое вычисление значения (Delphi)

[vizi]

Здравствуйте! Написал элементарную программку, определяющую среднее из введенных пользователем значений.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  max:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
max:=strtoint(edit1.text);
if max<strtoint(edit2.text) then max:=strtoint(edit2.text);
if max>strtoint(edit3.text) then max:=strtoint(edit3.text);
 memo1.Lines.add(inttostr(max));

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

Она полностью рабочая (тут ломаться нечему)... Но! Мне надо чтоб значение вычислялось не по нажатию кнопки, а сразу после заполнения всех трех полей.... Подскажите пожалуйста, как обойтись без кнопки? Буду безмерно благодарен

[ViktorR]

У компонента TEdit есть свойство - Modified - если текст был изменен, то True.
Есть обработчик события: OnChange - при любом изменении текста.
На один обработчик события и сажаем все три компонента. Анализируем - был ли изменен текст.
НО! Тут возможны варианты: изменено значение только одного компонента, двух, или трех.
Думаю, что будет достаточным, если после каждого изменения выполняется расчет и вывод нужного значения.


Как-то так ...

[vizi]

Спасибо, вы очень помогли!