Delphi ClientSocket e ServerSocket

[c0cac00l]

Olá.. eu tenho um  problema que tipo tenho um script para ver a memoria em uso do pc e tipo eu queria que o clientsocket envia-se ao serversocket as informações e colocar na memo2 após ao click do button a memo2 está no serversocket e o botão tambem.. alguem pode ajudar?

Codigo:

const

  cBytesPorMb = 1024 * 1024;

var

  M: TMemoryStatus;

begin

  M.dwLength := SizeOf(M);

  GlobalMemoryStatus(M);

  Memo1.Clear;

  with Memo1.Lines do begin

    Add(Format('Memória em uso: %d%%',

      [M.dwMemoryLoad]));

    Add(Format('Total de memória física: %f MB',

      [M.dwTotalPhys / cBytesPorMb]));

    Add(Format('Memória física disponível: %f MB',

      [M.dwAvailPhys / cBytesPorMb]));

    Add(Format('Tamanho máximo do arquivo de

paginação: %f MB',

      [M.dwTotalPageFile / cBytesPorMb]));

    Add(Format('Disponível no arquivo de paginação: %f

MB',

      [M.dwAvailPageFile / cBytesPorMb]));

    Add(Format('Total de memória virtual: %f MB',

      [M.dwTotalVirtual / cBytesPorMb]));

    Add(Format('Memória virtual disponível: %f MB',

      [M.dwAvailVirtual / cBytesPorMb]));

  end;

end;

[M6]

Não sei se percebi a tua dúvida dado que a explicação é bastante confusa...

O que queres é comunicar entre um cliente e um servidor é isso?

[c0cac00l]

Tipo.. o meu problema é que eu ja fiz todas as configurações da conexão entre server e cliente mas.. acontece que o server está com o receivetext em uma variavel de dados e o sendtext tambem o que eu queria mesmo era saber como fazer varias receivetext do mesmo cliente ou seja isto está trocado pois eu quero que o cliente se conecte ao server e o server a que recebe e quero que receba numa memo.. mas felizmente ja resulvi não está muito bem feito mas ja deu para desenrascar obrigado na mesma...

[M6]

Ainda bem que resolveste porque a tua explicação não clarificou nada...