[DELPHI] Jak poprawnie odczytać dane z pliku .INI?

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
   var
   INI : TINIFile;
begin
    i ni:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'\system.ini');
  try
      // zapisanie ustawienia polaczenia
      INI.WriteString('Main1', 'login', form2.Edit1.Text);
        INI.WriteString('Main1', 'Database name', form2.Edit4.Text);
          INI.WriteString('Main1', 'Host name', form2.Edit5.Text);
            // zapisanie ustawim e-maila
            INI.WriteString('Main2', 'serwer', form7.Edit1.Text);
              INI.WriteString('Main2', 'login', form7.Edit3.Text);
   finally
              INI.Free;    // uwolnij plik
      begin
               INI := TINIFile.Create('Sys.ini');
       try
                INI.WriteString('Main1', '1', form7.Edit4.Text);
                 INI.WriteString('Main2', '2', form2.Edit2.Text);
      finally
                  INI.Free;
      end;
    end;
  end;
end;

end.

//odczyt
procedure TForm1.FormCreate(Sender: TObject);
var
   ini: TINIFile;
begin
    ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'res.ini');
      try
       CheckBox1.Checked := ini.readbool('Rozdzielczosc','maksymalna',false);
      finally
    ini.free;
  end;
end;

//Zapis
procedure TForm1.Button1Click(Sender: TObject);
 Var
    ini: TINIFile;
begin
     ini := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'res.ini');
      try
       ini.WriteBool('Rozdzielczosc', 'maksymalna', CheckBox1.Checked);
      finally
     ini.free;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
INI : TINIFile;              // zdefiniowanie zmienneych
login : string;


begin
    if not FileExists('System.ini') then
  begin
     ShowMessage ('Proszę uzupełnić parametry połączenia');
     try
       INI := TINIFile.Create('System.ini');
      finally
         INI.Free;

           begin
        if FileExists('System.ini') then
     ini:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'\System.ini');
    try
   // i napewno w tym miejscu wyskakuje mi blad :(
      Form2.Edit1.Text := ini.ReadString('Main1','login','');

      finally
        INI.Free;
      end;
    end;
  end;
 end;
end;

begin
→//cośtam
→try
→→//cośtam
→finally
→→//cośtam
→end;
end;

var
INI : TINIFile;   
begin
if not FileExists('System.ini') then   // gdy nie ma to "zapisz"
begin
  INI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'System.ini');
  INI.WriteString('Pozycja1', 'Pozycja2', 'abc');
  INI.Free;
end else

if FileExists('System.ini') then   // w przeciwnym wypadku "wczytaj"
begin
  INI:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'\System.ini');
  Form1.Edit1.Text := INI.ReadString('Pozycja1','Pozycja2','');
  INI.Free;
end;

 Form1.Edit1.Text := INI.ReadString('main1','login','');

 Form2.Edit1.Text := INI.ReadString('main1','login','');

Form2.Show; // otwarcie 2 formy
//i potem przepisz coś do Form2.Edit

procedure TForm1.FormCreate(Sender: TObject);

 var
INI : TINIFile;
begin
if not FileExists('System.ini') then   // gdy nie ma to "zapisz"
begin
INI := TINIFile.Create('System.ini');
    INI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'System.ini');
    INI.WriteString('Pozycja1', 'Pozycja2', 'abc');
    INI.Free;
end else
Form2.Show;
if FileExists('System.ini') then   // w przeciwnym wypadku "wczytaj"
begin
  INI:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'\System.ini');
  Form2.Edit1.Text := INI.ReadString('main1','login','');
  INI.Free;
end;
end;

procedure TForm1.FormShow(Sender: TObject);

var
INI : TINIFile;
begin
if not FileExists('System.ini') then   // gdy nie ma to "zapisz"
begin
INI := TINIFile.Create('System.ini');
    INI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'System.ini');
    INI.WriteString('Pozycja1', 'Pozycja2', 'abc');
    INI.Free;
end else
if FileExists('System.ini') then   // w przeciwnym wypadku "wczytaj"
begin
  INI:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'\System.ini');
  Form2.Edit1.Text := INI.ReadString('main1','login','');
  INI.Free;

end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   with TINIFile.Create(ExtractFilePath(Application.ExeName)+'System.ini') do begin
      try
         Edit1.Text:=ReadString('main1','login','');
      finally
         Free;
      end;
   end;
end;