[odd]

Типа так:

 
Program RandomCircle;
Var key, ms, wi, hi: integer;
Begin
 ms:=0; wi:=GetWidth; hi:=GetHeight;  // в ms - милисекунды, wi - ширина, hi - высота экрана
 repeat            // Бесконечный цикл
  if ms = 5000 then        // Если прошло 5 секунд - пора рисовать круг
       begin
        DrawEllipse(Random(wi-10), Random(hi-10), 10,10); // Рисуем круг
        Repaint; ms:=0;
       end;
  Delay(50); key:=GetKeyClicked;   // Небольшая задержка и опрос клавы
  if key=53 then break;      // Если нажали 5 - выход из программы
  ms:=ms+50;
 until false;
End.