procedure TForm1.FormCreate(Sender: TObject);
begin
FApplication:=CreateOleObject('Excel.Application');
FWorkBook:=FApplication.Workbooks.Add;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FWorkBook.Close(false);
FApplication.Quit;
end;
function TForm1.Calculate(s: string): double;
var
a: OleVariant;
begin
a:='='+s;
FApplication.Cells.Item[1, 1]:=a;
result:=FApplication.Cells.Item[1, 1];
end;