[Pilot_Red]

А если так

Код:

......................
IdHashMessageDigest, IdHash;
.................
function md5(s: string): T4x4LongWordRecord;
 begin
  with TIdHashMessageDigest5.Create do
  try
  Result := HashValue(s);
  finally
  Free;
  end;
 end;

только уже через sendbuff