[roamer]

А такой вариант не позволит отловить ошибку ?

Код:

AIni := NIL;

if name='admin' then AIni:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'admin.ini') else
  if name='prodavec' then AIni:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'prodavec.ini') else
    if name='manager' then AIni:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'manager.ini');

if Assigned(AIni) then begin
   form15.CheckBox1.Checked:=Aini.ReadBool('tovar','check',true);
   form15.CheckBox2.Checked:=Aini.ReadBool('tovar','check2',true);
   form15.CheckBox3.Checked:=Aini.ReadBool('tovar','check3',true);
   form15.CheckBox4.Checked:=Aini.ReadBool('tovar','check4',true);
end
else begin
   ShowMessage('Ошибочная ситуация');
end;