procedure TForm1.Button1Click(Sender: TObject);
var
sayi1,sayi2,toplam,carpim:integer;
begin
sayi1:=strtoint(edit1.Text );
sayi2:=strtoint(edit2.Text );
toplam:=sayi1+sayi2;
carpim:=sayi1*sayi2;
edit3.Text := inttostr(toplam);
edit4.text:= inttostr(carpim);
end;
end.
nazım demir
demirnazim@hotmail.com