var
 Form1: TForm1;
 fs:TFileStream;
 fileopen:boolean =false;
 msg:boolean;
implementation

{$R *.dfm}
Function SendCommand(text:string):boolean;
begin
 form1.ServerSocket1.Socket.SendText('>'+text+'#');
 msg:=false;
 repeat
 application.ProcessMessages;
 until msg;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
 label loop;
 var rec,comand:string;
 endfile:boolean;
begin
 rec:=socket.ReceiveText;
 loop:
 if rec<>'' then begin
   if Fileopen then begin
      endfile:=false;
      if pos('>endfile#',rec)>0 then begin
        delete(rec,pos('>endfile#',rec),length('>endfile#'));
        endfile:=true;
      end;

      if rec<>'' then
         fs.Write(rec[1],length(rec));
      if endfile then begin
         rec:='>endfile#';
         Fileopen:=false;
      end;

   end;
   if not Fileopen then
    if copy(rec,1,1) ='>' then begin
          comand:=copy(rec,2,pos('#',rec)-2);
          delete(rec,1,pos('#',rec));
          form1.ListBox1.Items.Add('ïðèøëà êîìàíäà '+comand);
          if comand<>'msg' then socket.SendText('>msg#'); // &#229;&#241;&#235;&#232; &#239;&#240;&#232;&#248;&#235;&#238; &#241;&#238;&#238;&#225;&#249;&#229;&#237;&#232;&#229; &#238;&#242;&#235;&#232;&#247;&#237;&#238;&#229; &#238;&#242; &#241;&#235;&#243;&#230;&#229;&#225;&#237;&#238;&#227;&#238; &#242;&#238; &#239;&#238;&#241;&#251;&#235;&#224;&#229;&#236; &#241;&#235;&#243;&#230;&#229;&#225;&#237;&#238;&#229; &#241;&#238;&#238;&#225;&#249;&#229;&#237;&#232;&#229;
            if comand = 'file' then begin
                fs:=TFileStream.Create('c:\1.exe', fmCreate);
                Fileopen:=true;
            end;

            if comand = 'endfile' then begin
            closehandle(fs.Handle);
               Fileopen:=false;
            end;

          if rec<>'' then goto loop;

    end;
 end;
end;

var
 Form1: TForm1;
 msg:boolean;
implementation

{$R *.dfm}
Function SendCommand(text:string):boolean;
begin
 form1.ClientSocket1.Socket.SendText('>'+text+'#');
 msg:=false;
 repeat
 application.ProcessMessages;
 until msg;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p:array [1..4096] of byte;
begin
  SendCommand('file');
             with TFileStream.Create('c:\temp\idw411.1.exe', fmOpenRead) do
             begin
            repeat
            Read(p,4096);
            form1.ClientSocket1.Socket.SendBuf(p,4096);
            form1.ListBox1.Items.Add(inttostr(sizeof(p)));

            until Position>=Size;
            free;
            end;
            sleep(1000);
  SendCommand('endfile');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
 Socket: TCustomWinSocket);
 var x:integer;
   rec:string;

begin
 rec:=socket.ReceiveText;
 if pos('>msg#',rec)>0 then msg:=true;
 if rec<>'>msg#' then socket.SendText('>msg#');

end;