ClientSocket и ServerSocket

[Hacker19_90]

Всем привет!!! В общем ситуация в том , что отправляю файлы через ClientSocket , а ServerSocket их ловит. Текстовыми командами обмениваются легко, но как дело доходит до отправки потока, то здесь и глюк. Либо Client поток не отправляет либо Server не ловит.
Вот код Client- а

procedure TForm3.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var
   A: TStream;
begin
     Socket.SendText('filedowload' + IntToStr(fs.Size) + #0);
end;

это на коннект, а вот на READ

procedure TForm3.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
    mes: string;
begin
    mes := Socket.ReceiveText;
    if mes = 'ReadyDowload' then
    begin
        ShowMessage ('Клиент готов принять файл!');
        Socket.SendStream(fs);
    end
    else if mes = 'NoDowload' then
         begin
             ShowMessage('Клиент отказался принимать файл!');
             ClientSocket1.Active := false;
         end;
end;

Вот код Server - а

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
    s, s1: string;
    fs: TFileStream;
    fname: string;
    DataSize: longint;
    i: integer;
begin
    s := Socket.ReceiveText;
    if Form1.Reciving = true then
    begin
         s := Socket.ReceiveText;
         fs.Write(s[1], Length(s));
         if fs.Size = DataSize then
         begin
            ShowMessage('Файл Принят ' + fname);
            fs.Free;
         end;
    end;
    i:= 0;
    ShowMessage(s);
    if copy(s, 1, 11)='filedowload' then
    //if s ='filedowload' then
    begin
        Form4.ShowModal;
        Socket.SendText('Ready');
        if ssss = 'yes' then
        begin
            Socket.SendText('ReadyDowload');
            if SaveDialog1.Execute then
               fname := SaveDialog1.FileName;
            fs := TFileStream.Create(fname, fmCreate);
            DataSize := StrToInt(copy(s, 12, Pos(#0, s) - 12));
            {s := Socket.ReceiveText;
            fs.Write(s[1], Length(s));}
            Form1.Reciving := true;
        end
        else
        begin
            Socket.SendText('NoDowload');
            exit;
            fs.Free;
        end;
    end
    else
    begin
        Socket.SendText('Не считывается команда!!!');
      end;
end;

Всем заранее спасибо!

[Hacker19_90]

Кто нибудь