procedure TForm1.Button1Click(Sender: TObject); 
      var sr:TSearchRec; 
      Result:word; 
      begin 
          ChDir('C:\windows');//меняем папку на C:\Windows 
          Result := FindFirst ('*.ini',faAnyFile,sr); 
          ListBox1.Clear; 
          While result=0 do 
      Begin 
             ListBox1.Items.add(sr.name); 
       Result:=FindNext (sr); 
      End; 
      end;

//-----------------------------------------------------------------------------
Function TFSettings.LoadSettings (LS:String):String;
var
  FileSettings:Textfile; {Файл настроек}
  I:Integer;
  S:String;
  A:Byte;
Begin
A:=0;
try
  AssignFile(FileSettings,'Settings.ini');
  Reset(FileSettings);
    while A <> 255 do begin
    A:=A+1;
      Readln(FileSettings, S); {Чтение строки}
      If Pos(LS,S)<> 0 then begin{Если эта строка}
        I:=Length(LS)+1;
        Delete (S,1,I); {Удаляем хлам}
        A:=255;
      end;
    End;
           
  CloseFile(FileSettings);
  LoadSettings:=S;
except

//Вывод диалога с комментарием ошибки
on e: Exception do begin
          //Создание формы диалога
          FDialog.Message.Clear;
          FDialog.Message.Lines.Add('При чтении файла настроек Settings.ini произошла ошибка:');
          FDialog.Message.Lines.Add(e.Message);
          FDialog.ShowDialog('Ошибка','IconDialogError.jpg','OK','','');
try
    CloseFile(FileSettings);
  LoadSettings:= 'Ошибка';
except
End;


End;



End;
End;