Problema con Application.ProcessMessages

[jandro]

Hola a todos.

Resulta que tengo un Memo con un listado de personas y lo que quiero es que cuando pulse en uno se vea un panel con su foto durante 3 seg.
El tema es que lo hace todo bien, pero cuando termina de hacerlo el cursor del raton cambia como si estuviera arrastrando solito. Como si hubiera pulsado y arrastrado para cambiar items :S

Alguien se le ocurre que puede ser??

Aqui les dejo el codigo:

Código Delphi [-]
  PanelFoto.Visible:=true;

  Milisegundos:=3000; // 3 Seg. Para en el futuro poder configurarlo en preferencias

  ATickCount := GetTickCount + Milisegundos;
  while ATickCount > GetTickCount do
    Application.ProcessMessages;

    PanelFoto.Visible:=false;

Muchas gracias.
P.D.: Se que hay una forma para que el codigo salga bonito pero no recuerdo como era.