procedure TForm1.Delay(Tempo: Word);
var
x1: Double;
begin
  x1:= now;
  repeat until ((now-x1)*86400) > Tempo;
end;