[sanxpue]

bueno ahi te va una funcion del delay
la utilizo desde el delphi One imaginate

Procedure Delay(mSecs : Integer);
Var
   PrimerTC : LongInt;
Begin
  PrimerTC := GetTickCount;
  Repeat
     Application.ProcessMessages;
  Until ((GetTickCount-PrimerTC) >= Longint(mSecs));
End;

saludos desde Puebla, Mexico
asanxt@hotmail.com