이렇게 하면 안될까용...
<!--CodeS-->

function DatatoString(data:String):String;
var
    i : integer;
    ts : TStringList;
    tmp : String;
    s : String;
begin
    try
        ts := TStringlist.create;
        ts.clear;
        ts.text := data;
        s := '';
        if ts.count  > 0 then
        begin
            for i := 0 to ts.count -1 do
            begin
                tmp := copy(ts[i],pos('=',ts[i])+1,length(ts[i]);
                s:= s+tmp; //원하시는데로...
            end;
        end;
    finally
        ts.clear;
        freeandnil(ts);
        result := s;
    end;
end;

<!--CodeE-->