function checkras: boolean;
const maxentries = 100;
var
bufsize : integer;
numentries: integer;
entries : array[1..maxentries] of trasconn;
begin
entries[1].dwsize := sizeof(trasconn);
bufsize:=sizeof(trasconn)*maxentries;
fillchar(stat, sizeof(trasconnstatus), 0);
rasenumconnections(@entries[1], bufsize, numentries);
if numentries > 0 then result:=true
else result:=false;
end;