提供示例代码如下：
procedure TForm1.Button1Click(Sender: TObject);begin Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));end;
代码运行截图：
