اشکال در ساختن اشیاء بوسیله کدنویسی

[mehdi_moosavi]

سلام
من میخوام بوسیله کدنویسی یه Table یه DataSource ویه Dbgrid بسازم و به هم وصلشون کنم بعضی قسمتهاشو نوشتم ولی کامل نشد لطفا راهنمایی کنید
با تشکر



procedure TForm1.Button1Click(Sender: TObject);
begin
with TTable.Create(Self) do begin
Name:='table1';
DatabaseName:='c:\';
TableName:='sanad.db';
Open;
end;

with TDataSource.Create(Self) do begin
tDataSet:=;
end;

with TDBGrid.Create(Self) do begin
Parent:=Form1;
end;

end;

[m-khorsandi]

درود




with TTable.Create(Self) do
begin
Name := 'Table1';
DatabaseName := 'D:\Mirac Dos Data\83';
TableName := 'UNIT.DBF';
Active := True;
end;

with TDataSource.Create(Self) do
begin
Name := 'DataSource1';
DataSet := TTable(FindComponent('Table1'));
end;

with TDBGrid.Create(Self) do
begin
Name := 'DBGrid1';
Parent := Form1;
DataSource := TDataSource(FindComponent('DataSource1'));
end;

[mehdi_moosavi]

سلام
باتشکر ولی اطلاعات نشون داده نمیشه !