Наверное что-то типа такого
Код:
var
flg: boolean = false;
procedure TForm1.Button1Click(Sender: TObject);
begin
if flg then
Edit2.Text:= IntToStr(StrToInt(Edit2.Text) + StrToInt(Edit1.Text))
else Edit2.Text:= FloatToStr(StrToFloat(Edit1.Text) * 15.6);
flg:= true;
end;