Wie kommst Du auf die Mappe? Die solltest Du Dir über AdoConnection1.GetTebleNames holen und dann das erste Element verwenden, anstelle Tabelle1$:
Delphi-Quellcode:
var
TableNames : TStringlist;
begin
TableNames := TStringList.Create;
...
ADOConnection1.Active := True;
ADOConnection1.GetTableNames(TableNames);
ADOQuery1.SQL.Add('Select * from ['+TableNames[0]+']');
...
end;