[bombovix]

Код:

Код:

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];

Подскажите в чем ошибка.