procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
    for I := 300 downto 1 do
    Label1.Caption := IntToStr(I);
end;