function   ritime(m:integer):integer;
var
  ot:integer;
begin
  ot :=  GetTickCount;
  Repeat
    Application.ProcessMessages;
  Until ((GetTickCount - ot)>= longInt(m));
end;