[~ SaM ~]

Можно так...

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:byte;
begin
timer1.interval:=1000;
i:=i+1;
if i=300 then begin
application.messagebox('Время вышло!','Ошибка',0);
Timer1.Destroy;
{Далее можно пройтись циклом по всем радиобуттонам и задать им свойсто Enabled:=false}
end;
end;