Laggy Delay Function

procedure TForm1.Delay( const msecs:integer);
var  FirstTickCount: longint;
begin
  FirstTickCount:=GetTickCount;
  repeat
    Application.ProcessMessages;
  until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;