падает сервер((

[AlexJan]

подскажите пожалуйста,при передаче клиентом длинной строки(сообщения) серверу,сервер принимает строку(сообщение) записывает ее в файл и сам закрывается,что можно сделать что бы сервер сам не закрывался?
при передаче короткого сообщения все работает нормально...
код клиента:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:=ServerNameEdit. Text;
ClientSocket1.Active:=true;
end;
procedure TForm1.otpravitClick(Sender: TObject);
var
s,result:string;
begin
result:='фыфыфы|gfghfghfggggggggggg gggfffgggggqqqqqqqqqqqqqqqqqqgggghf hggggggggggggggggggggggggggg'+#13;
s:=result;
ClientSocket1.Socket.SendText(s);
end;

код сервера:
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active := True;
Memo1.Lines.Insert(0,'Сервер запущен!');
end;
procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var
l:integer;
buf:PChar;
src: TFileStream;
begin
// {Записываем в l размер полученного блока
l := Socket.ReceiveLength;
// {Заказываем память для буфера
GetMem(buf,l+1);
// {Записываем в буфер полученный блок
Socket.ReceiveBuf(buf,l);
// {Открываем временный файл для записи
src:= TFileStream.Create('test.txt',fmOpe nReadWrite);
// {Ставим позицию в конец файла
src.Seek(0,soFromEnd);
// {Записываем буфер в файл
src.WriteBuffer(buf,l);
// {Закрываем файл
src.Free;
// {Освобождаем память
FreeMem(buf);
end;