тебе нужен объект, без этого никак. не создавай объект в конструкции
with, т.е. он понадобится тебе в дальнейшем, а ссылки на созденный объект у тебя нет. Вместо этого делай по обычному, примерно так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
t: TTable;
begin
t := TTable.Create( self );
DataSource1.DataSet := t;
end;
это же относится и к DataSource