procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
    I := 0;
    repeat
       I := I + 1;
    until I = 2000;
    Label1.Caption := IntToStr(I);
end;
This will continue until 'I' gets to 2000.