Error en Application.ProcessMessage

[pab4146]

Hola amigos yo estoy utilizando Delphi 5 .
Al llamar a este procedimiento da un error . Alguien conoce porque esto tira un error al llamar a la funcion ?

La llamada al procedimiento es :

Application.ProcessMessages;

y el procedimieno es el siguiente:

TApplication.ProcessMessages;
var
Msg: TMsg;
begin
while ProcessMessage(Msg) do {loop};
end;

El error es el siguiente

ACCES VIOLATION AT ADSRESS 00000000. READ ADDRESS 00000000