При добавлении процедуры компилятор перестает опознавать идентификаторы обьектов формы

[noname_06]

Приветствую! Проблема в следующем: проект нормально компилируется и работает, но если добавить в него данную процедуру (моего авторства), то проект перестает собираться и вываливает кучу ошибок, в том числе и касающихся ранее рабочей части.

procedure SendCommand(command: String);
var
  i, j: Integer;
 
begin
  for i:= 0 to ServerSocket1.Socket.ActiveConnections - 1 do  //для всех соединений
    for j:=1 to 13 do //перебираем ячейки таблицы
      if Socket.RemoteAddress = tableIP.Cells[1,j] then  //если адрес клиента = адрес в таблице 1
        if tableIPwork.Cells[0,j] = '1' and tableIPwork.Cells[1,j]='1' then  //и он выбран + он онлайн [1, 1]
          ServerSocket1.Socket.Connections[i].SendText(command);  //то отправь command
end;

Среда Delphi 7 + Win 7 x86
Ошибки после добавления процедуры:

[Error] Unit1.pas(56): Undeclared identifier: 'ServerSocket1'
[Error] Unit1.pas(56): 'DO' expected but identifier 'Socket' found
[Error] Unit1.pas(58): Undeclared identifier: 'Socket'
[Error] Unit1.pas(59): Undeclared identifier: 'tableIPwork'
[Error] Unit1.pas(59): 'THEN' expected but identifier 'Cells' found
[Error] Unit1.pas(67): Undeclared identifier: 'ListSelect'
[Error] Unit1.pas(68): Undeclared identifier: 'tableIP'
[Error] Unit1.pas(69): Missing operator or semicolon
[Error] Unit1.pas(70): Missing operator or semicolon
[Error] Unit1.pas(71): Missing operator or semicolon
[Error] Unit1.pas(71): Missing operator or semicolon
[Error] Unit1.pas(72): Undeclared identifier: 'F'
[Error] Unit1.pas(74): Assignment to FOR-Loop variable 'i'
[Error] Unit1.pas(76): Missing operator or semicolon
[Error] Unit1.pas(80): Missing operator or semicolon
[Error] Unit1.pas(86): Missing operator or semicolon
[Error] Unit1.pas(87): Missing operator or semicolon
[Error] Unit1.pas(90): Statement expected but 'PROCEDURE' found
[Warning] Unit1.pas(94): Unsafe type 'Pointer'
[Warning] Unit1.pas(113): Unsafe type 'Pointer'
[Warning] Unit1.pas(114): Unsafe type 'Pointer'
[Warning] Unit1.pas(116): Unsafe type 'Pointer'
[Warning] Unit1.pas(119): Unsafe type 'Pointer'
[Error] Unit1.pas(28): Unsatisfied forward or external declaration: 'TForm1.SendCommand'
[Error] Unit1.pas(29): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Volkogriz]

попробуйте так:

  private
procedure SendCommand(command: String);

procedure TForm1.SendCommand(command: String);
var
  i, j: Integer;
 begin
  for i:= 0 to ServerSocket1.Socket.ActiveConnections - 1 do  //для всех соединений
    for j:=1 to 13 do //перебираем ячейки таблицы
      if Socket.RemoteAddress = tableIP.Cells[1,j] then  //если адрес клиента = адрес в таблице 1
        if tableIPwork.Cells[0,j] = '1' and tableIPwork.Cells[1,j]='1' then  //и он выбран + он онлайн [1, 1]
          ServerSocket1.Socket.Connections[i].SendText(command);  //то отправь command
end;

[noname_06]

К сожалению ситуация не улучшилась, только начало ругаться еще и на listselect:tlist; в секции private. И не понятно в какую сторону копать
p.s. эта последовательность проверок повторяется в программе около десяти раз, т.е. ее нужно выносить в отдельную процедуру (напр procedure SendCommand), а не в обработчик события procedure TForm1.SendCommand(command: String);

[Volkogriz]

Можно полный исходник.
а то компоненты на форму лень кидать)

[noname_06]

Собственно говоря, вотЪ.

[Volkogriz]

в процедуре используются запчасти находящиеся на форме и процедура их не видит,
например она не может опознать ServerSocket1 чтобы она его нашла нужно как минимум описать что он на форме Form1.ServerSocket1 !
Как то так!

[noname_06]

Привел к виду

procedure SendCommand(command: String);
var
  i, j: Integer;

begin
  for i:= 0 to Form1.ServerSocket1.Socket.ActiveConnections - 1 do  //для всех соединений
    for j:=1 to 13 do //перебираем ячейки таблицы
      if Form1.ServerSocket1.Socket.RemoteAddress = Form1.tableIP.Cells[1,j] then  //если адрес клиента = адрес в таблице 1
        if Form1.tableIPwork.Cells[0,j] = '1' and Form1.tableIPwork.Cells[1,j]='1' then  //и он выбран + он онлайн [1, 1]
          Form1.ServerSocket1.Socket.Connections[i].SendText(command);  //то отправь command
end;

Теперь ругается только на строку

if Form1.tableIPwork.Cells[0,j] = '1' and Form1.tableIPwork.Cells[1,j]='1' then

"Operator not applicable to this operand type". Осталось выяснить чем ему не нравиться сравнение строки со строкой

[Пепел Феникса]

if (Form1.tableIPwork.Cells[0,j] = '1') and (Form1.tableIPwork.Cells[1,j]='1') then

потому что скобки надо.

[Volkogriz]

Вот всё компилица
С уважением,
Volkogriz!

[Volkogriz]

Да Именно скобки
я скинул уже доделанный проект