что не так?

[ромик0]

клиент.

procedure TForm1.Button2Click(Sender: TObject);

var
  stream: TMemoryStream;
  msg: string;
begin

    stream := TMemoryStream.Create;
    stream.LoadFromFile('d:\123.txt');
    Client.Sendln(IntToStr(stream.Size));
    //if Client.Receiveln = 'ok' then
      Client.SendBuf(stream.Memory^, stream.Size);
      Client.SendStream(stream);
    Client.Disconnect;


end;

сервер

procedure TForm1.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  stream: TMemoryStream;
  msg: string;
  sz: integer;
begin
  //if ClientSocket.Connect then begin
    msg := ClientSocket.Receiveln;
    //Edit1.text := msg;
    stream := TMemoryStream.Create;
    sz := StrToInt(msg);
    stream.SetSize(sz);
   // ClientSocket.Sendln('ok');

    ClientSocket.ReceiveBuf(stream.Memory^,sz);
    stream.SaveToFile('d:\321.exe');
    //.Free;
    //ClientSocket.Receiveln;
    ClientSocket.Disconnect;
  //end;

end;

Delphi 7.
TCPClient TCPServer.


делал все в одной программе - работало.
разделил на 2(клиент-сервер) - перестало работать.
почиму?