Eigene Klasse von TForm ableiten - Events

[NetSonic]

Jede abgeleitete Form soll aber anders auf SetMyParams reagieren. Und die folgende Zuweisung wird mir mit dem Fehler "Inkompatible Typen: TObject und string" vom Compiler quittiert:

Delphi-Quellcode:

Form1.MyEvent := Form1.MyEvent;
Form1.Color := clRed;
Form1.SetMyParams('TEST');

Delphi-Quellcode:

procedure TForm1.MyEvent(sAction: String);
begin
     MessageDlg(sAction, mtWarning, [mbOK], 0);
end;