Проблема с сокетами в Дельфи

[Htenez]

Может кто-нибудь сталкивался с подобной проблемой?
У меня программа считывает с сервера информацию через сокет. В зависимости от полученных данных должна генерировать ответное сообщение в текстовом формате. Режим - асинхронный.

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var i,n,a,l:integer;
      S1,Mess:String;
begin
  FrmGl.Show;
  FrmGl.FormPaint(FrmGl);
  z:=z+1;
  S:=Socket.ReceiveText;
  i:=1;
  n:=0;
  l:=0;
  Label19.Caption:='';
  For i:=1 to length(S) do
    begin
      if S[i-1]='=' then
            begin
              n:=n+1;
              a:=i;
              S1:='';
              While S[a]<> ')' do
                begin
                  S1:=S1+S[a];
                  l:=Length(S1);
                  if S1[l]='.' then S1[l]:=',';
                  a:=a+1;
                end;
               Label19.Caption:=Label19.caption+S1+#10;
               case n of
                1:T:=StrtoFloat(S1);
                2:R:=StrtoFloat(S1);
                3:M:=StrtoFloat(S1);
                4:RX:=StrtoFloat(S1);
                5:RY:=StrtoFloat(S1);
                6:VRX:=StrtoFloat(S1);
                7:VRY:=StrtoFloat(S1);
                8:TR:=StrtoFloat(S1);
                9:TX:=StrtoFloat(S1);
                10:TY:=StrtoFloat(S1);
                11:TASK:=StrToInt(S1);
                12:POINT:=StrToInt(S1);
                13:FAIL:=StrToInt(S1);
                14:CRASH:=StrToInt(S1);
                15:FUEL:=StrtoFloat(S1);
                16:DONE:=StrToInt(S1);
                17:ERROR:=StrToInt(S1);
                18:IGNORED:=StrToInt(S1);
                end;
             end;
    end;
      if z1 mod 15=0 then
        begin
          Case Task of
         1:Begin
              FrxS:=FloatToStr(RX*200);
              FryS:=FloatToStr(RY*200);
              Mess:='{(FRX='+FrxS+')(FRY='+FryS+')}';
              Socket.SendText(Mess);
              Listbox1.Items.Add(mess);
           end;
         2:Button2.Caption:='2';
         3:Button2.Caption:='2';
         end;
      end;
    z1:=z1+1;
end;

все компилируется, ошибок нет.... но вот когда начинается выполнение программы происходит ошибка здесь:

Socket.SendText(Mess);

А именно, программа перестает принимать сообщения, пока снова произойдет ClientSocket1.Open.
Причем вот так:

Socket.SendText('Blablabla');

все спокойно работает ) но мне в таком формате сообщения увы, не нужны

[Htenez]

Да, вот еще что, последний If нужен только лишь для того, чтоб сообщения не посылались слишком часто(без него программа будет на каждое принятое генерировать исходящее).
Не слишком часто - это не более 10 в секунду.

[SERG1980]

А вы попробуйте передать уже с подсчитанным значением FrxS и FrуS например

 Socket.SendText('{(FRX=15,1564)(FRY=23,456)}');

[Htenez]

Я уже разобрался, спасибо за отклик
Это не помогло бы

Дело было в том, что этот...... делфи....... хранит Extended в формате xx,xxxx, а передавать мне необходимо было в формате xx.xxxx то есть с точкой, а не с запятой
Написал вайл один и все работает.

Только теперь от раза к разу возникают исключения типа (Access violiation);
Что с этим можно сделать?