[Pilot_Red]

так а что не понятного. вычисляешь хеш:

Код:

uses
IdHashMessageDigest
...............
function md5(s: string): string; 
 begin 
  Result := ''; 
  with TIdHashMessageDigest5.Create do 
  try 
  Result := AnsiLowerCase(AsHex(HashValue(s))); 
  finally 
  Free; 
  end; 
 end;

и отправляешь его строчкой serverSocket1.Socket.Connections[0].SendText