спасибо я немного был зациклен на этой записи :
procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
begin
a:=0;
Form1.Caption:=IntToStr(a+1);
end;
а так что не конает ,сложное писать получается а на легком иногда порюсь
Спасибо за подсказку ))