Тормоза при работе с TcpClient и TcpServer

[Аватар]

Для организации передачи сообщений с сервера приложений клиентам на сервере использую TcpClient, на клиентах TcpServer. Передача сообщений клиентам реализована в цикле по клиентам с использованием потока (код ниже). ThreadList использую по выходу из сервера приложений для уничтожения не завершенных потоков. Проблемы начинаются в случае, если среди клиентов, которым передаются сообщения есть мертвые. На сервере приложений начинаются жуткие тормоза. Отладить в боевой обстановке, когда сообщение передается одновременно 20-30 клиентам практической возможности нет. С потоками работаю редко, с TcpClient и TcpServer вообще на Вы. Наверно в коде что-то не то делаю. Поделитесь пожалуйста идеями и предложениями

unit UMessageToUser;

interface

uses
  Classes, Sockets, Forms, SysUtils;

type
  TMessageToUser = class(TThread)
  private
    fThreadList: TThreadList;
    fTcpClient: TTcpClient;
    fText: String;
    fIPadres: String;
    fServer,fOk: Boolean;
    fEndMessages: TNotifyEvent;
    procedure MessageToUserTerminate(Sender: TObject);
    procedure MessageToUserEnd;
  protected
    procedure Execute; override;
  public
    constructor Create(IPadres,Text: String; Port: Integer;
      ThreadList: TThreadList; Server: Boolean; EndMessages: TNotifyEvent);
    destructor Destroy; override;
    property Ok: Boolean read fOk;
    property IPadres: String read fIPadres;
  end;

implementation

uses USysProc;

constructor TMessageToUser.Create(IPadres,Text: String; Port: Integer;
      ThreadList: TThreadList; Server: Boolean; EndMessages: TNotifyEvent);
begin
  inherited Create(True);
  fThreadList:=ThreadList;
  fThreadList.Add(Self);
  fTcpClient:=TTcpClient.Create(Application);
  fTcpClient.BlockMode:=bmBlocking;
  fTcpClient.RemoteHost:=IPadres;
  fTcpClient.RemotePort:=IntToStr(Port);
  fText:=Text;
  fIPadres:=IPadres;
  fServer:=Server;
  fEndMessages:=EndMessages;
  fOk:=False;
  FreeOnTerminate:=True;
  OnTerminate:=MessageToUserTerminate;
  Resume;
end;

destructor TMessageToUser.Destroy;
begin
  if fTcpClient.Connected then fTcpClient.Disconnect;
  fTcpClient.Free;
  inherited Destroy;
end;

procedure TMessageToUser.Execute;
var s: String;
begin
  try
    if fTcpClient.Connect then begin
      while fText<>'' do begin
        s:=spGetStroka(fText,#2);  //моя процедура для выдергивания строк из сообщения
        fTcpClient.Sendln(s);
      end;
      fOk:=True;
    end;
  except
  end;
end;

procedure TMessageToUser.MessageToUserTerminate(Sender: TObject);
begin
  if fServer then Synchronize(MessageToUserEnd);
  try
    fThreadList.Remove(Self);
  except
  end;
end;

procedure TMessageToUser.MessageToUserEnd;
begin
  if Assigned(fEndMessages) then fEndMessages(Self);
end;

end.