[sariman]

До чего люди ленивые стали...
Вот самый простой вариант:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := ProgressBar1.Position + 1;
  if ProgressBar1.Position >= 30 then
  begin
    Timer1.Enabled := False;
    ProgressBar1.Position := 0;
    MessageBox(Handle, 'Текст ошибки', 'Ошибка!', 16);
  end;
end;