TObject Zuweisung + Verwendung

[shmia]

Du hast anscheinend 2 Klassen, die ähnlich, aber doch nicht gleich sind.
(TQuery und TOraQuery)
Du musst die nächst mögliche gemeinsame Basisklasse suchen.
Die gemeinsame Basisklasse ist in deinem Fall: TDataset

Delphi-Quellcode:

var
   ds : TDataset;
begin
   if useoracle then
      ds := DM1.OSQ
   else
      ds := DM1.DBQ_A;

  ds.Active := True;
  while not ds.Eof do
  begin
     ShowMessage(ds.Fields[0].AsString);
     ds.Next;
  end; 
  ds.Close;
  // wichtig:
  // ds ist nicht mit Free freigeben
end;