Tabellenspalten von FreeTables in DataDictionary kopieren

[Ascuriah]

Moin Moin Liebe Delphi Gemeinde

Bei meinem vorher ja schon genannten Projekt möchte ich nun den Quellpfad der Daten über eine selectdirectory() prozedur lösen.
Hier mein Code:

Delphi-Quellcode:

procedure TForm1.BtnQuellPfadClick(Sender: TObject);               //Auswahl des Quell-Verzeichniss
begin
    SelectDirectory('Quellordner auswählen','C:\ag32ads\',QuellPfad);
    Edit1.Text := QuellPfad;
    //str := QuellPfad;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    AdsQuery1.SQL.Clear;
    sInsert := ' insert into test_olap (test_key) select ' +
    ' kbu_key from [ ' + Edit1.Text + ' \agf_kbu] ';
    AdsQuery1.SQL.Add(sInsert);
    AdsQuery1.ExecSQL;
end;

(alle Variablen sind ordnungsgemäß deklariert, sieht man hier nur ned^^)

wenn ich den Pfad fest in das Select Statement einbau funktionierts, wenn ich ihm aber nur den Pfad in einem String übergebe den er oben ausgewählt hat rödelt er recht lang (15-20sec) und man meint es klappt und dann kommt folgender Fehler:

Wäre super wenn mir jemand seine Idee mitteilen könnte