[Varlonec]

Подсказали реализацию на другом форуме. Кому будет нужно.

var TS : TstringList;
i:integer;
begin
TS := TstringList.Create;
TS.LoadFromFile(ExtractFilePath(Application.ExeNam e)+'\config.cfg');
for i := 0 to TS.Count - 1 do
begin
ShowMessage(TS.Names[i]+' is '+TS.ValueFromIndex[i]);
end;
TS.Free
end;

Тему можно закрыть.