Probleme mit 'implements'-Klausel

[barnti]

Hi,
das kann aber nicht funktionieren

Delphi-Quellcode:

unit akDatabase;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs,mysqldbTables,IntfDatabase,Contnrs,akQuery;

type
  TakDatabase = class (TmysqlDatabase, IDatabase)
  private
    FQuerys: TObjectList;
    function GetQuery(Index: Integer): TakQuery;
    procedure SetQuery(Index: Integer; Value: TakQuery);
  public
    // Wenn ich auf Query zugreife wird ja GetQuery ausgeführt
    // (siehe unten). Die zu implementierenden Methoden 'Load' 
    // und 'Save' sollen aber in TakQuery implementiert werden                                    
    property Query[Index: Integer]: TakQuery read GetQuery write SetQuery 
            implements IDatabase;
  end;
...[size=18][/size][size=24][/size]
{- TakDatabase.GetQuery }

function TakDatabase.GetQuery(Index: Integer): TakQuery;
begin
  if FQuerys[index]=nil then exit;
  Result:= TakQuery(FQuerys[index]);
end;

Daher ist der Rückgabetyp 'TakQuery'.
Weitere Vorschläge?