А если так
Код:
......................
IdHashMessageDigest, IdHash;
.................
function md5(s: string): T4x4LongWordRecord;
begin
with TIdHashMessageDigest5.Create do
try
Result := HashValue(s);
finally
Free;
end;
end;
только уже через sendbuff