Ошибка в игре города

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
    AllNames : TStringList; // для вохранения всех городов
    WasCalled : TStringList; // назывались уже
    WhoGoes : 1..2;  // кто ходит
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
AllNames:=TStringList.Create;
WasCalled:=TStringList.Create;
AllNames.LoadFromFile('goroda.txt');
Whogoes:=1;  // ходит игрок 1
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var town_name : AnsiString;
i : integer;
begin
i:=0;
// переписываем название слова
while StringGrid1.Cells[i,0]<>'' do Begin
town_name:=town_name+StringGrid1.Cells[i,0];
Inc (i);
End;
// если не найден в базе
if  AllNames.IndexOf(town_name)=-1 then Begin
ShowMessage ('Город ' + town_name+' не найден в базе');
for i:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:='';
Exit;
End;
// если назывался
if  WasCalled.IndexOf(town_name)<>-1 then Begin
ShowMessage ('Город ' + town_name+' уже назывался');
for i:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:='';
Exit;
End;
 
Memo1.Lines.Add(town_name);
WasCalled.Add(town_name); // добавляем строки
Label4.Caption:=town_name[Length(town_name)]; // после буква
if WhoGoes=1 then WhoGoes:=2
Else WhoGoes:=1; // кто ходит
for i:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,0]:='';
StringGrid1.Cells[0,0]:=Uppercase(Label4.Caption);
Label3.Caption:='Ходил игрок: '+IntToStr(WhoGoes);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage ('Проиграл игрок:'+IntToStr(Whogoes));
Close;
end;
 
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WasCalled.Free;
AllNames.Free;
end;
end.

var
  s: string;
  c: char;
begin
  if ListBox2.Items.Count > 0 then
  begin
    s := ListBox2.Items.Strings[ListBox2.Items.Count-1];
    c := s[Length(s)];

end else 
  begin
    Randomize;
    ListBox2.Items.Add(AllNames[random(AllNames.Count]);
  end;
end;

var
  s: string;
  c: char;
  I: integer;
begin
  if ListBox1.Items.Count > 0 then    //ходит компьютер, определяет последнюю букву последнего введенного слова
    begin
      s := AnsiUpperCase(ListBox1.Items.Strings[ListBox1.Items.Count-1]);
      c := s[Length(s)];
      for I := 0 to AllNames.Count - 1 do begin
        s := AllNames.Strings[I];
        if c = s[1] then begin
          ListBox2.Items.Add(AllNames.Strings[I]);
          Break;
        end;
      end;
 
  end else //  если в списке слов нет, значит компьютер ходит первым. Тут можно просто случайным образом взять слово из общего списка
    begin
      Randomize;
      ListBox2.Items.Add(AllNames[random(AllNames.Count)]);
  end;
end;

....................................................................
 
if AllNames.IndexOf( не знаю что здесь)<> -1 then
ShowMessage('Такой город уже был');
 
..................................................................................

function check_city(t:string):boolean;
begin
check_city:=false;
for i:=1 to 1337 do
if a[i][1]=t[length(t)] then begin check_city:=true;break; end;
end;

function s(s:string):boolean;
var
i:integer;
begin
result:=false;
for i:=0 to ListBox1.Items.count-1 do
  begin
    if s=ListBox1.items.strings[i] then
      begin
        result:=true;
        break;
      end;
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Button2: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    ListBox2: TListBox;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
   AllNames : TStringList;//список всех городов
   WasCalled : TStringList;// назывались уже
   WhoGoes : 1..2;  // кто ходит
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AllNames:=TStringList.Create;// все города
  AllNames.LoadFromFile('goroda.txt');// файл с городами
  WasCalled:=TStringList.Create;//назывались уже
  Whogoes:=1;  // ходит игрок 1
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    if AllNames.IndexOf(Edit1.Text) = -1 then
      ShowMessage('Города '+Edit1.Text+' не существует')
    else
      if WasCalled.IndexOf(Edit1.Text) <> -1 then
        ShowMessage('Город '+Edit1.Text+' уже назывался')
      else begin
        ShowMessage('Город '+Edit1.Text+' существует');
        ListBox1.Items.Add(Edit1.Text);
        WasCalled.Add(Edit1.Text);
      end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage ('Проиграл игрок:'+IntToStr(Whogoes));
  close; //выход из программы
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  s: string;
  c: char;
  I: integer;
begin
  if ListBox1.Items.Count > 0 then    //ходит компьютер, определяет последнюю букву последнего введенного слова
    begin
      s := AnsiUpperCase(ListBox1.Items.Strings[ListBox1.Items.Count-1]);
      c := s[Length(s)];
      for I := 0 to AllNames.Count - 1 do begin
        s := AllNames.Strings[I];
        if (WasCalled.IndexOf(s) = -1) and (c = s[1]) then begin
          ListBox2.Items.Add(AllNames.Strings[I]);
          WasCalled.Add(AllNames.Strings[I]);
          Break;
        end;
      end;
  end else //  если в списке слов нет, значит компьютер ходит первым. Тут можно просто случайным образом взять слово из общего списка
    begin
      Randomize;
      s := AllNames[random(AllNames.Count)];
      ListBox2.Items.Add(s);
      WasCalled.Add(s);
  end;
end;
 
end.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  WasCalled.Free;
  AllNames.Free;
end;