[Alegun]

Тем не менее вопрос задан, и вот эль-вариант решения:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var
 ed1, ed2, ed3: integer;
begin
 ed1:= 0;
 ed2:= 0;
 ed3:= 0;
 if Edit1.Text <> '' then ed1:= StrToInt(Edit1.Text);
 if Edit2.Text <> '' then ed2:= StrToInt(Edit2.Text);
 if Edit3.Text <> '' then ed3:= StrToInt(Edit3.Text);
 Edit4.Text:= IntToStr(ed1 + ed2 + ed3);
end;

нужно повесить это на три первых эдита