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

[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'&#4  1;);

  end;

[mehdi_moosavi]

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