Delphi ile Function fonksiyonu ile toplamak

girilen iki deger ile  function fonksiyonu ile toplama  yapmasıdır

implementation

{$R *.dfm}

function toplama(x,y:integer):integer;
var
toplama:integer ;
begin
toplama:=x+y;
result:=toplama;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
label3.caption:=inttostr(toplama(strtoint(edit1.text),strtoint(edit2.text)));
end;
end.

TD Software