ShowModal überladen

[bwolf]

Hi,

ich will die Funktion ShowModal eines Formulars überladen, damit ich zusätzlich einen Parameter mit übergeben kann.
Allerdings habe ich das Problem das das ModalResult der überladenen Funktion immer 0 ist.

Hier der Code:

Code:

...
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function ShowModal(AParam : Integer): Integer; overload;
  end;
...



function TfrmTest.ShowModal(AParam : Integer): Integer;
begin
  inherited ShowModal;
end;


// iResult ist immer 0
iResult := frmTest.ShowModal(iTest);

Was mache ich Falsch?
Danke!