[NumLock]

Код:

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure FormCreate(Sender: TObject);
...
procedure TForm1...
begin
  if OpenDialog1.Execute then
  begin
    Table1.TableName:=OpenDialog1.FileName;
    Table1.Open;
  end;
end;