[nixel]

Код:

procedure TForm1.Button1Click(Sender: TObject);

  function Check(const User, Pass: String): Boolean;
    begin
      Result:=True;
      if (User='админ') and (Pass='sysop') then Exit
      else if (User='секретарь') and (Pass='masha') then Exit
      else if (User='бухгалтер') and (Pass='nomoney') then Exit
      else if (User='итд') and (Pass='anykey') then Exit
      else Result:=False;
    end;

  begin
    if not Check(ComboBox1.Text, Edit1.Text) then ShowMessage('Oops')
    else Form2.ShowModal;
  end;

end с точкой тут не к месту, вы же пишете просто в процедурах, без общего кода в модуле.

описание подпрограмм (в данном случае функции) пишется до бегина родительской процедуры.

проверьте, так должно работать.

p.s. Многоточием обычно отмечается пропущенное место =)
p.p.s. Так же можно функцию вынести за пределы процедуры, дабы сделать ее глобальной. если требуется. можно и не делать)