Hallo Manfred,
du könntest es so probieren:
Delphi-Quellcode:
with TStringList.Create do
try
DelimitedText := DM_member.Member.FieldByName('CHAIRMEN_G').AsString;
CheckBox_church.Checked := IndexOf('CM') >= 0;
// ...
finally
Free;
end;
Grüße vom marabu