Dah <TStringList>.
IndexOf() intern eine Schleife verwendet könnte man evaluieren, das Ganze iinerhalb einer Schleife zu machen:
Delphi-Quellcode:
PersonsVorhanden := False;
...
for i := 0 to list.Count -1 do
begin
if list[i] = 'PERSONS' then PersonsVorhanden := True;//Feld vorhanden
...
end;
DefaultPERSONS.Visible := PersonsVorhanden;
...