[Orfentor]

Проблема в том, что он не ругается на какую-то определенную строку, он выделяет строку end. в закладке проэкта

текст кнопки

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists(Dir+ComboBox1.Items[ComboBox1.ItemIndex]) then
  createdir(Dir+ComboBox1.Items[ComboBox1.ItemIndex]);
Result:=TiniFile.Create(Dir+ComboBox1.Items[ComboBox1.ItemIndex]+'\'+LabeledEdit1.Text+LabeledEdit2.Text[1]+'.ini');
  file:=TIniFile.Create(Dir+Form1.ListBox1.Items[Form1.ListBox1.ItemIndex]);
Panel1.Visible:=TRUE;

    end;