Проблема в связке TcpClient TcpServer

[registr911]

Пишу програму с использованием TcpClient TcpServer
Клиент и сервер на разных машинах, все работает нормально но
проблема в том что когда закрываю клиента то сервер начинает загружать ЦП на 99% (просто ужас)
Подскажите пожалуста как это побороть ???
Клиент:

type
  TForm1 = class(TForm)
    cs: TTcpClient;
.............
procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
cs.Sendln('2');
s:=cs.receiveln; Memo1.lines.add(s);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
cs.Disconnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cs.Connect;
end;

Сервер:

type
  TForm1 = class(TForm)
    Server: TTcpServer;
    procedure ServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
..................
    procedure OBRABOTKA(cl: TCustomIpClient);

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
server.Active:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
server.RemotePort:='9918';
server.Active:=true;
server.Open;
end;

procedure TForm1.ServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
OBRABOTKA(ClientSocket);
end;

procedure OBRABOTKA(cl: TCustomIpClient);
var s:string;
begin
while cl.Connected do
begin
s:=cl.Receiveln();
if s='' then continue; 
Form1.Memo1.Lines.Add(s);
cl.Sendln('Ok! '+cl.RemoteHost+' : '+cl.RemotePort);
if s='2' then   // Здесь я запускаю другое приложение
end;
end;

[registr911]

Спасибо огромное Вашему форуму вчера весь вечер просидел и не как не мог допереть чего оно не работает.
А сегодня написал на форуме и через 37 минут допер. Ну дочего же техника дошла.
Так что уже все работает.

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

закон подлости
выложи решение для будущих ищущих.