[Gate007]

Спасибо, почти получилось
Осталась последняя непонятка. Код модуля:

Код:

unit Unit4;

interface

procedure my_out;

implementation
Uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Unit1;
procedure my_out;
var p,i,j,k:integer;
 s1, s2:string;
 F: Textfile;
 t: TStringList;
begin
  ListBox1.Items.Clear;
  for j:=0 to high(city) do
  begin
    ListBox1.Items.Add(city[j]);
    for i:=0 to high(list) do
    begin
      if city[j] = list[i].city then
        ListBox1.Items.Add(list[i].sename);
    end;
    ListBox1.Items.Add('');
  end;
AssignFile(f, 'file.txt');
   Append(f);
   Closefile(f);
  t:=TStringList.Create;
  t.LoadFromFile('file.txt');
  for k:=0 to (t.Count-1) do
  begin
  s2:=t.Strings[k];
  s1:=copy(s2,LastDelimiter(' ', s2),length(s2)); 
  Delete (s2,LastDelimiter(' ', s2),length(s2));
  Delete (s2,LastDelimiter(' ', s2),length(s2));
  s2:=s2+s1;
  t.Strings[k]:=s2;
  end;
  t.Sort;
  memo2.Lines.AddStrings(t);
end;
end.

Подключен к юниту1.
Ругается на [Error] Unit4.pas(17): Undeclared identifier: 'ListBox1' и далее куча подобных ошибок с листбоксом. Что не так?