function TTextFile.ReadString(const Section, Ident, Default: string): string;
var
i: integer;
bs, es, zs, sl: string;
you: boolean;
begin
Result := '';
bs := '<' + Section + '>';
es := '</' + Section + '>';
zs := Ident + '=';
you := false;
for i := 0 to Count - 1 do
begin
sl := Strings;
if you then
begin
if contrast(zs, Copy(sl, 1, Length(zs))) then
Result := Copy(sl, Length(zs) + 1, Length(sl) - Length(zs));
if contrast(es, sl) then
Break;
end;
if (not you) then
if contrast(bs, sl) then
you := true;
end;
if Result = '' then
Result := Default;
end;
