Besser finde ich da einen class helper zu benutzen. Denn der ist dafür gedacht, dass man im Kontext der Klasse handelt, während das mit der abgeleiteten Klasse eher ein Trick ist.
Delphi-Quellcode:
// das in eine Unit in der uses-Klausel oder in die eigene Unit:
TProcessMessageApplication =
class helper
for TApplication
procedure DoProcessSingleMessage;
end;
procedure TProcessMessageApplication.DoProcessSingleMessage;
begin
Self.ProcessMessage;
end;
// und dann einfach benutzen:
Application.ProcessMessage;