DFÜ Verbindung starten mit Password und Benutzer eingabe

[Mr. Bean]

Hallole
Ich habe folgendes Probelehm ich will ein Programm schreiben das die DFÜ Verbindung startet. Wenn bei der DFÜ Verbindung kein Passwort eingegeben ist soll eine abfrage zur
Passwort Eingabe erfolgen und anschließend die DFÜ Verbindung gestartet werden.
Ich habe schon rausgefunden wie man die DFÜ Verbindung Startet. Aber wenn kein Passwort eingegeben ist liefert die Funktion einen Fehler.

Delphi-Quellcode:

function DialDFUE(DFUEName : String; var ErrorCode : integer; var ConId :
  DWord) : boolean;

var ConNum  : LPDWORD;
    ReturnCode : DWord;
begin
  result := false;
  ErrorCode := 0;
  New(ConNum);
  try
    ReturnCode := InternetDial(Application.Handle , PChar(DFUEName),
    INTERNET_AUTODIAL_FORCE_UNATTENDED, ConNum, 0);
    ErrorCode := ReturnCode;
    if ReturnCode = ERROR_SUCCESS then
    begin
      result := true;
      ConId := ConNum^;
    end;
  finally
    Dispose(ConNum);
  end;
end;

[Edit=Sakura]Delphi-Tags korrigiert. MfG.[/Edit]