Типа так:
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.