function StreamToString(Stream: TStream): String;
var
  Size: Integer;
  p: PChar;
begin
  Size := Stream.Size;
  SetLength(Result, Size * 2);
  GetMem(p, Size);
 
  Stream.Position := 0;
  Stream.Read(p^, Size);
 
  BinToHex(p, PChar(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]t[1]), Size);
 
  FreeMem(p, Size);
end;
 
procedure StringToStream(const s: String; Stream: TStream);
var
  Size: Integer;
  p: PChar;
begin
  Size := Length(s) div 2;
  GetMem(p, Size);
 
  HexToBin(PChar(@s[1]), p, Size * 2);
 
  Stream.Position := 0;
  Stream.Write(p^, Size);
 
  FreeMem(p, Size);
end;