Себе про Delphi

FuncINI.pas:

function ReadIni(FName, ASection, AString : String) : String;
var
sIniFile: TIniFile;
begin
sIniFile:=TIniFile.Create(FName);
Result:=sIniFile.ReadString(ASection, AString, 'ReadIni_error');
sIniFile.Free;
end;

function ReadIniBool(FName, ASection, AString : String) : Boolean;
var
sIniFile: TIniFile;
begin
sIniFile:=TIniFile.Create(FName);
Result:=sIniFile.ReadBool(ASection, AString, False);
sIniFile.Free;
end;

// Пример использования
daIniFile := 'config.ini';
daLIO := ReadIniBool(ExtractFilePath(paramstr(0))+daIniFile,'Log','LogIsOn');
daLogFileName := ReadIni(ExtractFilePath(paramstr(0))+daIniFile,'Log','LogFileName');