Label 0/0

[pavel!]

Вообщем хочу что бы в лабеле каптион изменялся, но выглядит он так:
Lavel1.Caption:=0/0
Мне надо что бы по клику на кнопку 0/0 стала 1/1
Но не получается дает ошибку

Цитата: var Form1: TForm1; Cur, All:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Cur:=+1; All:=+1; Label1.Caption:=Cur+'/'+All; end;

Помогите пожалуйста

[VeTaL_UA]

var
Form1: TForm1;
Cur, All:integer;

implementation

{$R *.dfm}

procedure TForm1.Create(Sender: TObject);
begin
Cur:=0;
All:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
inc(Cur);
inc(All);
Label1.Caption:=IntToStr(Cur)+'/'+IntToStr(All);
end;

[pavel!]

Цитата: Сообщение от VeTaL_UA var Form1: TForm1; Cur, All:integer; implementation {$R *.dfm} procedure TForm1.Create(Sender: TObject); begin Cur:=0; All:=0; end; procedure TForm1.Button1Click(Sender: TObject); begin inc(Cur); inc(All); Label1.Caption:=IntToStr(Cur)+'/'+IntToStr(All); end;

Спасибо огромное (: