procedure TForm1.Button1Click(Sender: TObject);
var
RE: TRasEntry;
DEV: array[1..100] of TRASDEVINFO;
i, j,cnt: integer;
begin
j := sizeof(DEV)*100;
DEV[1].dwSize := sizeof(TRASDEVINFO);
i := RasEnumDevicesA(@DEV[1], j, cnt);
Memo1.Lines.Add('j ='+IntToStr(j)+' i='+IntToStr(i)+' cnt='+IntToStr(cnt));
if i <> 0 then Memo1.Lines.Add('Ошипка!');
For i := 1 to cnt do Memo1.Lines.Add(DEV.szDeviceType+' = '+DEV.szDeviceName);