Zeile aus INI-Datei lesen

[Tifoso]

ich habe folgendes Problem, möchte aus einer INI-Datei einegwisse Zeile lesen um z.B. ein Passwort zu überprüfen.
bin noch ein anfänger darum entschuldigt die Frage!

Das Einlesen klappt aber beim Auslesen aus dem INI wird immer der INI-Eintrag gelöscht.

Delphi-Quellcode:

procedure TPasswordDlg1.OKBtnClick(Sender: TObject);
var  F: TextFile;
     S: string;
     PWString: String;
     PWlst:TStringList;
     ini: TIniFile;
begin
  AssignFile(F, 'login.ini');
// Datei auswählen

  Reset(F);
  Readln(F, S);
// Erste Zeile der Datei lesen

  CloseFile(F);

     PWString:=NeuesPassword1.Text;
     PWlst:=TStringList.Create;


  IF AltesPassword.Text <> S 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 = S THEN
  PWString:=NeuesPassword1.Text;
  PWlst:=TStringList.Create;

  PWlst.Add(PWString);
  PWlst.SaveToFile('login.ini');

     PWlst.Free;
  end;

end;

kann mir bitte jemand helfen???


mfg



P.S: Die Verschlüsselung des Passworts folgt später