var k: integer;
...
  k := 0;
  while (k <> 50) do
    begin
      Application.ProcessMessages;
      sleep(100);
      inc(k);
    end;
...