[NCD]

Конечно, я тоже постоянно допускаю подобные ошибки:

procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
begin
a:=0; {Эта строчка - смерть для всей процедуры }
Form1.Caption:=IntToStr(a+1);
end;