高手帮忙看一下这个函数是否可行?

本人不大会DELPHI，只想实现一个功能：对本地数据库是指PARADOX的DB数据文件和FoxPro的DBF数据文件的操作,最终目的想把这个函数放到DLL中供其他开发工具调用：unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation
{$R *.dfm}
Function OpenDatabase:Boolean;
var
  Database: TDatabase;
  Query:Tquery;
  spath:string;
Begin
///GetDatabasePath;
  ///得到数据库的存放路径，可以是从注册表中读出或由用户选择或其他任何方式。
  ///得到的路径存放在变量sPath中.
  spath:='C:\datapath\';
  If DirectoryExists(sPath) then
  Begin
    DataBase.LoginPrompt:=False;
    DataBase.DatabaseName:='wawa';
    DataBase.AliasName:='';///清空AliasName属性；
    DataBase.DriverName:='STANDARD';//本地数据库设成STANDARD；
    DataBase.Params.Clear;
    DataBase.Params.Add('Path='+ sPath);///设置数据库路径；
    Query.Databasename:=DataBase.DatabaseName;
    Query.SQL.Clear;
    Query.SQL.Add('select * from 菜单.db');  ///就是想在这操作数据
    try 
      Query.Open;
    Except
      Showmessage('3333Open Table Error!');
      Raise;
    end;
  End;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDatabase;       ///执行对数据库的操作
end;end.