Funktionsbibiliothek - Objekttypunabhängig machen

[Ulf346C]

Ich möchte bestimmte, immer wiederkehrende Datenbankfunktionen in eine Bibiliothek packen.

Dummerweise habe ich drei verschiedene SQL-Objekttypen:
- tQuery
- tzQuery
- tzReadOnlyQuery

ich hatte mir das etwas so vorgestellt:

Delphi-Quellcode:

function tdbf.OpenSql(var query1: tObject; tabelle, feld: string; wert: integer): boolean;
begin
  if query1.className = 'tzQuery' then 
  with (query1 as tzQuery) do begin
    close;
    sql.text := 'select * from ' + tabelle + ' where ' + feld + ' = ' + inttostr(wert);
    open;
    result := not (eof and bof);
  end;
  if query1.className = 'tQuery' then 
  with (query1 as tQuery) do begin
    ...
  end;
  if query1.className = 'tzReadOnlyQuery' then 
  with (query1 as tzReadOnlyQuery) do begin
    ...
  end;
end;

dummerweise funktioniert das nicht (Typenfehler wird gemeldet)
woran liegts