negociousuario.~pas

exemplo de classes em delphi

unit negocioUsuario;

interface
uses unitUsuario;

type
  NegocioUsuario = class
  private
    estado:boolean;
  public
    function setEstado(usuario:):boolean;
  protected
  published
end;

implementation

end.