TcpServer и проблема с ним

[whitedragon]

В программировании не силен, в Delphi тоже,а в сетях особенно,так что прошу сильно не пинать,если вопрос глупый
Допустим код программы такой:

program Zombie;
uses
Sockets,
Windows;
var
SERVER: TTcpServer;
s: string;
work:boolean;
begin
SERVER:= TTcpServer.Create(NIL);
SERVER.LocalPort:= '8765';
SERVER.Active:= True;
work:=true;

while work do
begin
if SERVER.Accept then s:=SERVER.Receiveln();

if s='off' then work:=false;
sleep(100);
end;
end.

Только вот когда в сокет пишу "off" программа не завершается...
Не правильно слушаю??? Обьясните плизз!
P.S. Заморачиваться по поводу клиента не стал и взял в его качестве NetChat из Demos.