[Reist]

Извиняюсь, просто писал после ночи сидения над ней и мне казало уже все очевидным))) Программа состоит из юнита формы (который работает с компонентами) и юнита потоков (который работает с клиентами).
В юните потоков есть класс TServerThread = class(TServerClientThread), у которого есть процедура рассылки всем клиентам сообщения

Код:

procedure TServerThread.SendAllClient(var aData: tData);
var i: Word;
begin
try
  for i := 0 to ServerSocket.ActiveThreads - 1 do begin
    ServerSocket.Connections[i].SendBuf(aData, SizeOf(aData));    
  end;
except
end;
end;

В основной форме пытаюсь вызвать это процедуру и передать ей значения на нажатие кнопки.

Код:

type
  TData = record
    fCommand: Word;
    fNick: String[MAX_STRING];
    fColor: Integer;
    fMessages: array [0..MAX_CHAR - 1] of Char;
  end;
  PData = ^TData;
............................
implementation

uses
  uServerThread;

{$R *.dfm}

type
     n=class (uServerThread.TServerThread);
....................................
procedure TfMain.Button3Click(Sender: TObject);
var adata:tData; i:Integer;
begin
  with adata do begin
    fCommand:=10010;
    fNick:='Администратор';
    fColor:=4;
    for i := 0 to Length(memo2.text) - 1 do
      fMessages[i]:=Char(memo2.text[i + 1]);
      n.SendAllClient(adata);
  end;
   end;

В строчке n.SendAllClient(adata); появляется ошибка, так как скорее всего этот метод не правилен. Надеюсь, в этот раз я указал все что нужно)