Anzeigen des Inhalts von .txt oder .ini-files

[Namenloser]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
begin
  if
    Application.MessageBox('Datei anzeigen lassen?', 'Dialog zur Anzeige', MB_YESNO) = id_yes
  then
    ini:=TIniFile.Create(extractfilepath(paramstr(0)) + 'X.ini/.txt');
    Listbox1.items.text := ini.ReadString('Caption', 'Title', '{Keine Ahnung}');
    ini.free;
  else;

end;

Kann auch nicht funktionieren. das schon eher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
begin
  if Application.MessageBox('Datei anzeigen lassen?', 'Dialog zur Anzeige', MB_YESNO) = id_yes then
  BEGIN // <--
    ini:=TIniFile.Create(extractfilepath(paramstr(0)) + 'X.ini'); //.txt
    Listbox1.items.text := ini.ReadString('Caption', 'Title', '{Keine Ahnung}');
    ini.free;
  END; // <--

end;