[GELÖST] Create FIniFile führt zu Exception mit CoolTrayIcon

[Hiele]

Hallo Zusammen,

ich bekommes es einfach nicht hin, ein INI File zu lesen.
Mein Programm nutzt CoolTrayIcon und im Zusammenhang mit Create
für TIniFile kommt es so fort zum bekannten Fehler das das Parent fehlt.

Habe ja alles hier dazu im Forum gefunden. Dank der Suche.

Aber TInifile hat kein parent. Undefinierter Bezeichner.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  CoolTrayIcon1.IconVisible := True;

  try
    Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) +  'hstray.ini');
    ini.parent := Selft; <----- GEHT NICHT :-(
    tcpclient.Host := ini.readstring('Homeserver','IP','0.0.0.0');
    tcpclient.Port := ini.readinteger('Homeserver','Port',0);
  finally
    Free;
  end;


  HSIP.Text := tcpclient.Host;
  HSPORT.Text := InttoStr(tcpclient.Port);
end;

Ohne CoolTrayIcon läuft der Ini Kram und auch umgekehrt - aber zummen nicht.

Habe ich da was übersehen?

Für ein Tip wäre ich Dankbar


Gruß
Hiele



EDIT:

Manchmal sieht man den Wald vor lauter Bäumen nicht!!
Das kommt vom Kopieren

Hatte vergessen:

Delphi-Quellcode:

ini.free;

Danke fürs zuhören :oops: