[lostbananan]

Написал такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  // Нове вікно? з "даними тестування" + посил на принтер
  beep();
  Timer1.Destroy;
  for i := 1 to 11 do
  begin
    TProgressBar(FindComponent('ProgressBar' + IntToStr(pBar))).Visible := false;
  end;
end;

Первая же итерация цикла вызывает Аксес виолатион...
Почему и что неправильно я написал?
И еще вопрос как проверить существует ли Timer1, например?