procedure Button1OnClick(Sender: TfrxComponent);
var
     toplamtutar:integer;
begin
Memo74.Clear;
Memo72.Clear;
Memo164.Clear;
Memo74.Text :=Edit1.Text;
Memo72.Text :=Edit0.Text;
toplamtutar:=strtoint(Edit1.Text)+strtoint(Edit0.Text);
Memo164.Text:=inttostr(toplamtutar);
Saveini;
end;