Zeile aus INI-Datei lesen

[Tifoso]

ok, danke an alle. das mit dem ini hat geklappt.

habe aber trotzdem noch eine Frage und zwar hab ich ein bisschen ein durcheinander mit if und else, wenn z.B. eine var meherere bedingungen einhalten muss wie in meinem Beispiel, dass der Fall ist.
wie löst ihr profis das am besten??

Delphi-Quellcode:

procedure TPasswordDlg1.OKBtnClick(Sender: TObject);
var  ini: TIniFile;
     P: string;
begin
    ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'test.ini');

    P:=ini.ReadString('Benutzer','Passwort',P);
    
    IF AltesPassword.Text <> P THEN
    IF AltesPassword.Text <> 'Administrator' THEN
    ShowMessage('Sie haben das alte Passwort falsch eingegeben');
    AltesPassword.Text:='';


    IF NeuesPassword.Text <> NeuesPassword1.Text THEN
    ShowMessage('Sie haben das neue Passwort falsch eingegeben');

    begin
         IF NeuesPassword.Text = NeuesPassword1.Text THEN
         IF AltesPassword.Text = P THEN
         IF AltesPassword.Text = 'Administrator' THEN

         ini.WriteString('Benutzer','Passwort',NeuesPassword.Text);
    end;

    ini.free;

end;

kann mir da vielleicht auch noch jemand auf die Sprünge helfen??

mit freundlichen Grüssen
silvan