TuniConnection

[youuu]

Guten Abend,

ich erstelle per runtime die Komponente TUniConnection

Delphi-Quellcode:

Connect := TUniConnection.Create(nil);
    Connect.Port := MYSQL_PORT;
    Connect.ProviderName := MYSQL_PROVIDER;
    Connect.Server := MYSQL_SERVER;
    Connect.Username := MYSQL_USERNAME;
    Connect.Database := MYSQL_DATABASE;
    Connect.Password := MYSQL_PASSWORD;
    Connect.Options.DisconnectedMode := True;
    Connect.Options.LocalFailover := True;
    Connect.OnConnectionLost := ConnectionConnectionLost;   // <-----
    Connect.Connect;

Delphi-Quellcode:

procedure ConnectionConnectionLost(Sender: TObject;
  Component: TComponent; ConnLostCause: TConnLostCause;
  var RetryMode: TRetryMode);
begin
  RetryMode := rmReconnectExecute;
end;

Leider funktioniert die Zuweisung so nicht.
(E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur')



Wenn ich das über eine Klasse regel

Zitat:

type
TUni_connection = class
private
public
procedure ConnectionConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
end;

erhalte ich den Fehler (wärend der Laufzeit), EReadError "Ungültiger Eigenschaftswert"

Wie löse ich das am besten?