что в данной функции подключения к PPPoE соединению с помощью RASAPI реализовано не так?

[zumm]

Приветствую. Подскажите, что в данной функции подключения к PPPoE соединению с помощью RASAPI реализовано не так? То есть, почему она не работает, а всегда возвращает ERROR_NO_CONNECTION, хотя EntryName передан верный (он получен ранее, при помощи все того же RASAPI).

function DialConnect(const AEntryName: String): LongInt;
var
  DialParameters: TRASDialParameters;
  DialHandle: THandle;
  NeedPassword: LongBool;

  function RASCallBack(const AMessage, AState, AError: Integer): LongInt; stdcall;
  begin
    ShowMessage
    (
      'Message: ' + IntToStr(AMessage) + #$0D + #$0A +
      'State: ' + IntToStr(AState) + #$0D + #$0A +
      'Error: ' + IntToStr(AError)
    );
  end;
begin
  Result := 0;
  FillChar(DialParameters, SizeOf(TRASDialParameters), 0);

  with DialParameters do
  begin
    Size := Sizeof(TRASDialParameters);
    StrPCopy(EntryName, AEntryName);
  end;

  Result := RASGetEntryDialParameters(nil, DialParameters, NeedPassword);

  if Result = 0 then
  begin
    Application.ProcessMessages;
    Result := RASDial(nil, nil, DialParameters, 0, @RASCallBack, DialHandle);

    if Result = 0 then
    begin
      Result := DialHandle;
      Exit;
    end;
  end;

  Result := -Result;
end;

[Slym]

как мне кажется проблема тут
StrPCopy(EntryName, AEntryName);
дельфя не уникодовая?