[artemavd]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Active:=False;
OpenDialog1.Execute;
Table1.TableName:=OpenDialog1.FileName;
datasource1.DataSet:=table1;
DBGrid1.DataSource1:=DataSource1;
table1.Active:=True;
end;

в инспекторе свойства у компонентов можно очистить и заполнять их программно.