[кастелянша]

Ни одного файла связанного с базой, я там не заметил!Только если в *.txt что то хранится! Либо база где - нибудь на сервере! »

Вы правы, я напутал, база (*.mdb) в другом месте хранится, но в ней нет таких данных.

В папке есть исходники, в них нужно посмотреть откуда берется список людей, и его уже менять! »

Вот отрывок кода где я нашел упоминание о выборе диспетчера, болше ничего...

Код:

;
if StrToInt(d)>kd then
datcamp:=False;
end;

procedure TForm5.Button1Click(Sender: TObject);
var dat, tim, dat1, tim1: string;
begin
if (ComboBox1.Text='') or (ComboBox2.Text='') then
   begin
   ShowMessage('Не введены фамилии контролёров!');
   exit;
   end;

Label3.Caption:=('Дежурный ХХ   '+ComboBox1.text+'   /____________________________');
Label8.Caption:=('Дежурный ХХ   '+ComboBox2.text+'   /____________________________');
Button1.Visible:=False;
BitBtn1.Visible:=False;
ComboBox1.Visible:=False;
ComboBox2.Visible:=False;
if PrinterSetupDialog1.Execute=True then
begin
Print;
dat1:=DateToStr(Now);
tim1:=TimeToStr(Now);
AssignFile(time,'Y:\timd.txt');
{$I-}
reset(time);
{$I+}
readln(time,st);
CloseFile(time);
dat:=Copy(st,1,10);
Delete(st,1,11);
tim:=st;
if (dat1=dat) and (tim<tim1) and (tim1<'7:50:00') then
  begin
if (FileExists('Y:\timd.txt')) then
  begin
  DeleteFile('Y:\timd.txt');
  end;
  AssignFile(time,'Y:\timd.txt');
  {$I-}
  Rewrite(time);