FrmClose

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Ini: TIniFile;
  I: Integer;
begin
  Ini := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'Einstellungen.ini');
  try
    for I := 0 to cbbZielort.Items.Count -1  do
    begin
      Ini.WriteString('Zielort', 'Ort' + IntToStr(I), cbbZielort.Items[I]);     // schreibt ort + neue Zahl
    end;
    for I := 0 to cbbKennzeichen.Items.Count -1  do
    begin
      Ini.WriteString('Kennzeichen', 'KFZ' + IntToStr(I), cbbKennzeichen.Items[I]);     // schreibt KFZ + neue Zahl
    end;
    Ini.WriteString('LetzteWerte', 'User', cbbAdresse.Text);
  finally
    Ini.Free;
  end;
end;