Buscando y buscando ya lo encontre
Ahí esta por si alguno de los compañeros se le presenta algo similar.
Código Delphi
[-]
FDCommand1.CommandText := 'select ... from ... where id= :id';
FDCommand1.Open;
FDCommand1.Fetch(ADQuery1.Table);
FDCommand1.Close;