procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

ShowMessage('a='+IntToStr(a)+';'+'b='+inttostr(b));

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

ShowMessagePos('a='+IntToStr(a)+';'+'b='+inttostr(b),45,100);

 

end;