procedure расчитатьbtn.click (sender:Tobject)
x,y:integer;
begin
x:=strtoint(edit1.text);
y:=формула которая чтото делает с Х;
stringgrid1.cells[2,1]:=inttostr(y);
end;

вот как то так