Ошибка '[' is not a valid integer value

[eugenerock]

При отправки с клиента на сервер на серверной стороне вылетает ошибка: '[' is not a valid integer value.

За основу была взята программа отсюда: http://pblog.ru/?p=100

Переработана только эта часть:

procedure TForm1.SendBtnClick(Sender: TObject);
var
t1,t2,t3:TTime;
i,n:Integer;
ft:TextFile;
begin
// проверка, в каком режиме находится программа
  If ServerSocket.Active=True then
// отправляем сообщение с сервера всем пользователям
    For i:=0 to ServerSocket.Socket.ActiveConnections-1 do
      ServerSocket.Socket.Connections[i].SendText('0['+TimeToStr(Time)+']  '+NikEdit.Text+':  '+TextEdit.Text)
  else
  begin
  t1:=Now;
  t2:=t1;
  n:=100;
  AssignFile(ft,'Socket.txt');
  Rewrite(ft);
  while t2-t1<0.0069 do
  begin
  t2:=Now;
  for i:=1 to n do
    begin
  TextEdit.Text:='V';
// отправляем сообщение с клиента
      ClientSocket.Socket.SendText('['+TimeToStr(Time)+']  '+NikEdit.Text+':  '+TextEdit.Text);
// отобразим сообщение в ChatMemo
      ChatMemo.Lines.Add('['+TimeToStr(Time)+']  '+NikEdit.Text+':  '+TextEdit.Text);
  Sleep(1000);
    end;
  t3:=Now;
  Writeln(ft,TimeToStr(t2-t3)+'  n='+inttostr(n));
  n:=n+100;
  end;
  CloseFile(ft);
  ShowMessage('Готово!');
// очищаем TextEdit
  TextEdit.Clear;
end;
end;

В чем ошибка? Никак не могу понять. Самое интересное, в другой локальной сети Sleep помогала исправить эту проблему, но в моей этого не происходит.

[min@y™]

вылетает ошибка: '[' is not a valid integer value.

это ошибка преобразования строки в целое число.
ищи в исходнике сервера проблемный StrToInt().

[Golden_RUS]

В этом куске кода, что ты дал, эта ошибка не может вылетать. Дай весь код и покажи полное сообщение компилятора. Ты где то "[" пытаешься в число преобразовать.

[Stilet]

ищи в исходнике сервера проблемный StrToInt().

Я бы даже сказал "Ищи в событии, которое принимает текст от ClientSocket.Socket.SendText или ServerSocket.Socket.Connections[i].SendText"