================================================
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Sockets, StdCtrls;

type
 TMyChat = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   RemoteHost: TEdit;
   RemotePort: TEdit;
   LocalPort: TEdit;
   Display: TMemo;
   Edit: TEdit;
   Connect: TButton;
   TcpServer1: TTcpServer;
   TcpClient1: TTcpClient;
   SendFile: TButton;
   procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
   procedure SendClick(Sender: TObject);
   procedure ConnectClick(Sender: TObject);
   procedure SendFileClick(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 MyChat: TMyChat;

implementation

{$R *.dfm}

procedure TMyChat.ConnectClick(Sender: TObject);
begin
TcpServer1.LocalPort := LocalPort.Text;
TcpServer1.Active := True;
TcpClient1.RemotePort := RemotePort.Text;;
TcpClient1.RemoteHost := RemoteHost.Text;;
TcpClient1.Active := True;
end;

procedure TMyChat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TcpServer1.Active := False;
TcpClient1.Active:= False;
TcpClient1.Disconnect;
end;

procedure TMyChat.SendFileClick(Sender: TObject);
var
asd:Tmemorystream;
begin
asd := TMemoryStream.Create;
asd.Position:=0;
asd.LoadFromFile('c:\1.txt');
asd.Position:=0;
TcpClient1.Active := True;
 try
   if TcpClient1.Connect then
     begin
     TcpClient1.SendStream(asd);
     end;
 finally
   TcpClient1.Disconnect;
 end;
asd.free;
end;

procedure TMyChat.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
    s:string;
    asd:tmemorystream;
    len:integer;
    buf:pointer;
 begin
asd:=TMemoryStream.Create;
asd.Position:=0;
len:= ClientSocket.ReceiveBuf(buf,192,0);
asd.WriteBuffer(buf,len);
asd.SaveToFile('c:\000.txt');
asd.Free;
FreeMem(Buf);
clientsocket.Close;
ShowMessage('clientsocket.Close');
end;

end.
================================================

GetMem(buf,1024);
len:= ClientSocket.ReceiveBuf(buf,1024,0);
asd.WriteBuffer(buf,len);
FreeMem(buf)

var buf:array[0..1023] of byte;

procedure TMyChat.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
    asd:tmemorystream;
    len:word;
    buf:pointer;
 begin
len:=192;
asd:=TMemoryStream.Create;
GetMem(buf,len);
len:= ClientSocket.ReceiveBuf(buf^,len,0);
asd.Position:=0;
asd.WriteBuffer(buf^,len);
asd.SaveToFile('c:\000.txt');
asd.Free;
FreeMem(Buf);
clientsocket.Close;
ShowMessage('clientsocket.Close');
  end;

procedure TMyChat.TcpServer1GetThread(Sender: TObject;
 var ClientSocketThread: TClientSocketThread);
var
s:string;
    asd:tmemorystream;
    len:word;
    buf:pointer;
 begin
len:=192;
asd:=TMemoryStream.Create;
GetMem(buf,len);
TcpServer1.ReceiveBuf(buf^,len,0);
asd.Position:=0;
asd.WriteBuffer(buf^,len);
asd.SaveToFile('c:\000.txt');
asd.Free;
FreeMem(Buf);
TcpServer1.Close;
  end;

procedure TMyChat.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
s:string;
    asd:tmemorystream;
    len:word;
    buf:pointer;
 begin
len:=192;
asd:=TMemoryStream.Create;
GetMem(buf,len);
ClientSocket.ReceiveBuf(buf^,len,0);
asd.Position:=0;
asd.WriteBuffer(buf^,len);
asd.SaveToFile('c:\000.txt');
asd.Free;
FreeMem(Buf);
TcpServer1.Close;
  end;

var
    asd:tmemorystream;
    len:integer;
    LenRes:integer;
    buf:pointer;
 begin
len:=68096;
asd:=TMemoryStream.Create;
GetMem(buf,len);
LenRes:=ClientSocket.ReceiveBuf(buf^,len);
asd.Position:=0;
asd.WriteBuffer(buf^,len);
if LenRes <> len then
ShowMessage('Ошибка размера : '+Inttostr(LenRes))
else
begin
asd.SaveToFile('c:\000.doc');
ShowMessage('Файл принят')
end;
asd.Free;
FreeMem(Buf);
end;

procedure TMyChat.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
    asd:tmemorystream;
    len:integer;
    LenRes1:integer;
    LenRes2:integer;
    buf:pointer;
 begin
len:=68096;
LenRes1:=Len;
LenRes2:=0;
asd:=TMemoryStream.Create;
GetMem(buf,len);
asd.Position:=0;
Repeat
LenRes1:=ClientSocket.ReceiveBuf(buf^,lenRes1);
asd.WriteBuffer(buf^,lenRes1);
LenRes2:=LenRes2+LenRes1;
if LenRes1 <> len then lenRes1 := len-LenRes2;
Until LenRes2 = len;
asd.SaveToFile('c:\000.doc');
asd.Free;
FreeMem(Buf);
  end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
 Stream:TFileStream;
 buf:array[byte] of byte;
 len:integer;
begin
 Stream:=TFileStream.Create('c:\file_'+FormatDateTime('ddmmyyyy_hhmmss',Now)+'.txt', fmCreate);
 try
   while ClientSocket.Connected do
   begin
     len:=ClientSocket.ReceiveBuf(buf,SizeOf(buf),0);
     if len<=0 then Break;
     Stream.WriteBuffer(buf,len);
   end;
 finally
   Stream.Free;
 end;
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
 Parser:TStringList;
 Str:string;
 Stream:TFileStream;
 buf:array[byte] of byte;
 len:integer;
begin
 try
   ClientSocket.Sendln('+OK Hello! File sender pleased to meet you');
   Parser:=TStringList.Create;
   try
     Parser.NameValueSeparator:=':';
     while ClientSocket.Connected do
     begin
       Str:=ClientSocket.Receiveln;
       if Str='' then break;
       Parser.Add(Str);
     end;
     if Parser.IndexOfName('FileName')<0 then raise Exception.Create('No filename');
     if Parser.IndexOfName('Size')<0 then raise Exception.Create('No file size');
     Stream:=TFileStream.Create(Parser.Values['FileName'], fmCreate);
     try
       Stream.Size:=StrToInt(Parser.Values['Size']);
       ClientSocket.Sendln('+OK You can send file');
       Stream.Seek(0, soBeginning);
       while ClientSocket.Connected do
       begin
         len:=ClientSocket.ReceiveBuf(buf,SizeOf(buf),0);
         if len<=0 then Break;
         len:=min(len,Stream.Size-Stream.Position);
         Stream.WriteBuffer(buf,len);
         if Stream.Size=Stream.Position then
         begin
           ClientSocket.Sendln('+OK You file accepted. Disconnect.');
           ClientSocket.Disconnect;
         end;
       end;
     finally
       Stream.Free;
     end;
   finally
     Parser.Free;
   end;
 except
   on E:Exception do
   begin
     if ClientSocket.Connected then
       ClientSocket.Sendln('-ERR Raised exception with message: '+E.Message)
     else
       raise;
   end;
 end;
end;

FileName: c:\windows\NOTEPAD.EXE