Error en un procedimiento
 

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;
while ProcessMessage(Msg) do {loop};

Sería buenísimo saber cual es el error!