Ну, для начала, это не well-formed ini файл.
Т.е. я подозреваю, что стандартыми средствами он не считается правильно.
По поводу того, как его прочитать.
В принципе, если стркутура фиксированная, то это можно сделать достаточно просто.
Код:
var
sl : TStringList;
I : Integer;
tgt : TMemo;
begin
tgt := Nil;
sl := TStringList.Create;
try
sl.LoadFromFile(...);
For I := 0 To sl.count-1 Do
Begin
If Pos('// LEVEL 1',sl[i] > 0 Then tgt := Memo1
Else If Pos('// LEVEL 2',sl[i] > 0 Then tgt := Memo2
Else If Pos('// LEVEL 3',sl[i] > 0 Then tgt := Memo3
Else If tgt <> nil Then tgt.Lines.Add(sl[i]);
End;
finally
sl.free;
end;
end;
Этот код должен считать именно представленную структуру.
Если стркутура изменится, то код перестанет работать правильно, но идея, надеюсь, понятна.