Delphi Edit Soma Multiplica

para somar ou multiplicar duas edit e aparecer o resultado na terceira edit, sem ter que colocar um botão faça o seguinte :
Na Propriedade KeyPrewiew coloque True

private
    { Private declarations }
    FCampo1,
    FCampo2: Double;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  total: real;
  Fcampo1: real;
  FCampo2: real;
implementation
{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
key :=#0;
Perform(WM_NextDlgCtl,0,0);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
FCampo1 := StrToFloat (Edit1.Text);
end;
procedure TForm1.Edit2Exit(Sender: TObject);
begin
FCampo2 := StrToFloat (Edit2.Text);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
FCampo1 :=StrToFloat(Edit1.Text);
Edit2.SetFocus;
end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
FCampo2:=StrToFloat(Edit2.Text);
total:= FCampo1 * FCampo2;
Edit3.Text:=FloatToStr(Total);
end;

end.