Последний штрих или проверка в ListBox

[Pirotexnik]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  a:='0'
  if pos('hlds.exe', listbox1.items.text)<>0 then
  a:='1'

  If a:='0' then
  Button2.click;

end;

Не компилируется с ошибками:

[Error] UPER.pas(142): Missing operator or semicolon
[Error] UPER.pas(145): Missing operator or semicolon
[Error] UPER.pas(161): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'UPER.pas'

Кто не понял что это такое:
Создаём переменную "а", равную 0
Если процес в списке найден - "а" = 1
Если а = 1 - нечего не делаем
Если "а" = 0 нажимаем на кнопку Button2

[Kotofff]

По поводу Missing operator or semicolon и остальных после него ...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  a:='0';
  if pos('hlds.exe', listbox1.items.text)<>0 then
  a:='1';

  If a='0' then
  Button2.click;

end;

Прошу прощения - поправил еще ...

[Pirotexnik]

[Error] UPER.pas(145): Type of expression must be BOOLEAN

=(

[Пепел Феникса]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  a:='0';
  if pos('hlds.exe', listbox1.items.text)<>0 then
  a:='1';

  If a:='0' then
  Button2.click;

end;

вместо выделеного должно быть a='0'

[mihali4]

Еще одна дурацкая тема, где вы будете отрывать занятых людей для поиска ошибок вашей собственной невнимательности, а точнее - расхлябанности, и я буду их закрывать не глядя!
Сначала потренируйтесь, чтобы руки не опережали сознание...