Code:

function GetPostParam(const PostData: OleVariant): string;

var

V: Variant;

P: PChar;

lb, hb, i: Integer;

begin

V:=Variant(TVarData(PostData).VPointer^);

if VarIsArray(V) then begin

P:=VarArrayLock(V);

try

  lb := VarArrayLowBound(V, 1);

  hb := VarArrayHighBound(V, 1);

  SetString(Result, P, hb - lb + 1);

  for i := 1 to Length(Result) do if Result[i] = #0 then begin

  SetLength(Result, i - 1); Break; end; Exit;

finally VarArrayUnlock(V);   end;

end;

Result:= '';

end;