anderes Prob (hab schon gesucht) INI-File Leseproblem

[KoRn117]

hi,

ich hab ne inifile geschrieben, die so aussieht:

[Lesen]
Q7=RI
[Senden]
ParallelOut=RTS
Clock=DTR

zum lesen setze ich folgenden code ein

label23.caption := inifile.ReadString('Lesen','Q7','Fehler'); er gibt aber immer nur 'Fehler' aus - sieht wohl so aus als ob ich einen hätte

Was mache ich falsch? Er müsste ja eigentlich 'RI' auslesen oder sehe ich das falsch?

hier nochmal der komplette sourcecode:

beim oncreate ereignis:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var IniFile : TIniFile;
begin

inifile := TIniFile.Create('Einstellungen.ini');
  try
  label23.caption := inttostr(inifile.readinteger('senden','test',3456));
  //label23.caption := inifile.ReadString('Lesen','Q7','Fehler');
  label21.caption := inifile.ReadString('Senden','ParallelOut','Fehler');
  label22.caption := inifile.ReadString('Senden','Clock','Fehler');
  finally
  inifile.free;
  end;

end;

beim formclose

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var IniFile : TIniFile;
begin
  try
  IniFile:=TIniFile.create(ExtractFilePath(Paramstr(0))+'Einstellungen.ini');
  if combobox1.Text = 'RI' then Inifile.WriteString ('Lesen','Q7','RI')
  else if combobox1.Text = 'DCD' then Inifile.WriteString ('Lesen','Q7','DCD')
  else if combobox1.Text = 'DSR' then Inifile.WriteString ('Lesen','Q7','DSR')
  else if combobox1.Text = 'CTS' then Inifile.WriteString ('Lesen','Q7','CTS')
  else Inifile.WriteString ('Lesen:','Lesen','Fehler');

  if combobox2.Text = 'RTS' then Inifile.WriteString ('Senden','ParallelOut','RTS')
  else if combobox2.Text = 'DTR' then Inifile.WriteString ('Senden','ParallelOut','DTR')
  else if combobox2.Text = 'TXD' then Inifile.WriteString ('Senden','ParallelOut','TXD')
  else Inifile.WriteString ('ParallelOut:','Senden','Fehler');

  if combobox3.Text = 'RTS' then Inifile.WriteString ('Senden','Clock','RTS')
  else if combobox3.Text = 'DTR' then Inifile.WriteString ('Senden','Clock','DTR')
  else if combobox3.Text = 'TXD' then Inifile.WriteString ('Senden','Clock','TXD')
  else Inifile.WriteString ('ParallelOut:','Senden','Fehler');

  inifile.WriteInteger('Senden','TEST',5000);

  finally
  IniFile.Free;
  end;
end;  // on close

vielen dank für eure hilfe - danke

ciao