Помогите исправить ошибки

[Satorin]

function CheckRASConnections: string;
const
  MaxEntries = 100;
var
  BufSize: Integer;
  NumEntries: Integer;
  Entries: array[1..MaxEntries] of TRasConn;
begin
  Entries[1].dwSize := SizeOf(TRasConn);
  Bufsize := SizeOf(TRasConn) * MaxEntries;
  RasEnumConnections(@Entries[1], BufSize, NumEntries);
  if numentries > 0 then
    result := strpas(@Entries[1].szEntryName)
  else
    Result := 'Disconnected';
end;

[DCC Error] Unit1.pas(30): E2003 Undeclared identifier: 'TRasConn'
[DCC Error] Unit1.pas(32): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(34): E2003 Undeclared identifier: 'RasEnumConnections'
[DCC Error] Unit1.pas(36): E2029 ')' expected but identifier 'szEntryName' found
[DCC Error] Unit1.pas(36): E2029 'END' expected but ')' found
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Terran]

Добавьте модуль
Uses
RASUnit,...

[Satorin]

[DCC Error] Unit1.pas(7): F1026 File not found: 'RASUnit.dcu'
НЕТ ТАКОВА........

[Terran]

Скачайте модуль и скопируйте его в папку со своей программой.
Модуль: RasApi.zip

[Satorin]

Спасибо...