diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 899b35445dd9271ff7f88748e12a9184cb04aa4e..7acbf0b101213d9203f4c9562aa20bf4c868523c 100644 (file)
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
while sm <> '' do
begin
i := Pos('|', sm);
- if i = 0 then i := length(sm);
+ if i = 0 then i := length(sm)+1;
sc := Copy(sm, 1, i-1);
- Delete(sm, 1, i);;
+ Delete(sm, 1, i);
if FindFirst(path+sc, faAnyFile, SR) = 0 then repeat AddItem(SR.Name); until FindNext(SR) <> 0;
FindClose(SR);
end;