Combobox mit passwort versehen!?!?

[SirThornberry]

ob ein parameter gesetzt ist kannst du mit ParamStr(ParameterIndex) herauffinden. Wieviel Parameter es gibt findest mit mit ParamCount heraus.

Delphi-Quellcode:

var LCount: Integer;
    LPasswortAbfrage: Boolean
begin
  LPasswortAbfrage := False;
  for LCount := 1 to ParamCount - 1 do
    if ParamStr(LCount) = '/Passwort' then
      LPasswortAbfrage := True; 
  if not(LPasswortAbfrage) or (InputBox('Passwortabfrage', 'Passwort', '') = 'deinPasswort') then
  begin
    //Quelltext was passieren soll bei Combobox änderung
  end else
    ShowMessage('Sie sind nicht berechtigt die Combobox zu ändern.');
end;