Код:
Код:
procedure TApplication01.CheatsClick(Sender: TObject);
var n: string;
begin
n:=Cheats.Items[Cheats.ItemIndex];
Memo1.Lines.LoadFromFile('cheats\'+n+'.txt');
end;
Пишет ошибку: List Index Out Of Bounds (-1)
Обвиняет строку: n:=Cheats.Items[Cheats.ItemIndex];
Подскажите в чем ошибка.