var
  FileStream: TFileStream;
  Pfad: AnsiString;
   Pfad1: String;
   
begin
Pfad1 := GetEnvVarValue('AppData');
if Edit1.Text = Edit2.Text then begin
  Pfad := pfad1 + '\LarsPasswordSaver.dat';
  if FileExists(Pfad) then
  begin
    FileStream:= TFileStream.Create(Pfad, fmOpenRead);
    try
      FileStream.ReadComponent(Form3.ListView1);

 finally

 FileStream.Free;




    end;
  end;
  Form3.Show;
  Form13.Close;
  Form3.Timer1.Enabled := true;
  Form3.Timer2.Enabled := true;
end
else
ShowMessage('Das angegebene Passwort ist nicht korrekt!');
end;