procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
    I := 1;
    Label1.Caption := IntToStr(I);
    Inc(I);
    Label2.Caption := IntToStr(I);
end;
I starts at the number 1, then I is incremented to 2.