Post w nadpisanej procedurze DoBeforePost

Witam,
mam problem w zadaniu. Musze napisać:
Obiekt dziedziczący z TQuery który będzie wykonywał POST jeżeli jest stan dsInsert lub dsEdit w procedurze DoBeforePost.

Proszę o pomoc.

a czego oczekujesz od nas? Rozwiązania? To się niestety nie doczekasz. Jak chcesz konkretów (nie wiem jak to zrobić to NIE JEST konkret) to zadaj KONKRETNE pytanie

Aj tam od razu nie napisze... Kodu nie sprawdzałem, tylko po prostu wklepałem tu, ale pewnie będzie działać tak jak chce (jak doda odpowiednie uses, oczywiście).
A chce, żeby to działało totalnie z czapy i bez sensu.
A bez sensu dlatego, że metoda DoBeforePost woła zdarzenie OnBeforePost.

I nich mi ktoś wyjaśni, bo może się nie znam; jaki kurna sens jest zapisywania danych w DataSet, w metodzie która ma wołać zdarzenie przed zapisem danych??
Czyli w zdarzeniu, które jest wołane dokładnie przed zapisem?

Ale, co mi tam, proszę.

PS. Jak to jest na zaliczenie, to chętnie bym zapytał tego "profesora" po co uczy młodych idiotyzmów... A może to test do pracy? To wiej z tej roboty, bo Cię tam ogromna krzywda spotka.
Wydaje mi się, że to ma być przykład na polimorfizm. Tyle, że wybitnie nietrafiony.

interface

type
  TQueryStupidExt = class(TQuery)
  protected
    procedure DoBeforepost; override;
  end;

implementation

procedure TQueryStupidExt.DoBeforepost;
begin
  inherited;

  if Self.State in [dsEdit, dsInsert] then
    Self.Post;
end;

end.