diff --git a/unit5.pas b/unit5.pas
index 752f75f..2d3cdae 100644
--- a/unit5.pas
+++ b/unit5.pas
@@ -67,7 +67,7 @@ procedure TForm5.UpdateTranslation(ALang: String);
 
 procedure TForm5.Button1Click(Sender: TObject);    { OK a pak vytvoř stub soubor}
 var
-  i: byte;
+  i: integer;
   discstub: TXMLNode;
   xmlDoc : IXMLDocument;
   //pomSerieNazev : String;