function CompareGUID (G1,G2:TGUID):boolean;
begin
result := false;
if (g1.D1 = g2.D1) and (g1.D2 = g2.D2) and (g1.D3 = g2.D3) and
(g1.D4[0] = g2.D4[0]) and (g1.D4[1] = g2.D4[1]) and
(g1.D4[2] = g2.D4[2]) and (g1.D4[3] = g2.D4[3]) and
(g1.D4[4] = g2.D4[4]) and (g1.D4[5] = g2.D4[5]) and
(g1.D4[6] = g2.D4[6]) and (g1.D4[7] = g2.D4[7]) then result := true;
end;