Procedure aufrufen

[manfred_h]

Halo zusammen

ist wirklich eine Anfägerfage Sorry ( hab auch schon die Suche bemüht )
ich habe ein Form und ein Datamodul

Im Datamodul habe ich diese Procedure:

Delphi-Quellcode:

procedure TDM_hotel.nc_calc(Sender: TObject);
var maxdate : string;
begin
  Q_tmp.SQL.Text := ('SELECT MAX (D_DATE) FROM HOTEL_D WHERE' +
                     '(ID_AREA = '+''''+(''+frm_hotel.ID.Field.DisplayText+''''+')'));
  Q_tmp.ExecQuery;
  maxdate := Q_tmp.FieldByName('MAX').AsString;
  Q_tmp.Close;
  if Hotel.FieldByName('CS').Value > 1 then
  with Hotel do
  begin
    Edit;
    FieldByName('NC').AsString := DateToStr(StrToDate(maxdate)+((FieldByName('CS').Value * 30)));
    post;
  end;
end;

aus dem Form kann ich so zugreifen:

Delphi-Quellcode:

procedure Tfrm_hotel.contactseries_update(Sender: TObject);
begin
  DM_hotel.nc_calc(Sender);
end;

Frage: Wie kann ich im Datamodul selber auf diese Procedure zugreifen?

Delphi-Quellcode:

procedure TDM_hotel.Hotel_DAfterPost(DataSet: TDataSet);
begin
  nc_calc;
end;

das hier geht nicht ...
Es kommt immer die Felermeldung : Not enough actual parameters

bin dankbar für Eure Hilfe
Shalom
Manfred