Design Parttern (Singleton / Factory / DAO)

Boa tarde   Estou começando a desenvolver orientado a objetos no Delphi 2009, e estou implementando o padrão DAO para persistência de dados. Encontrei pouquíssimo material sobre o assunto na internet, e estou me baseando no material de Ricardo Coelho na edição 115 onde fala muito bem sobre o assunto. Fiz o exemplo dele, e quase tudo estava funcionando, só fiz algumas correções de sintaxe. O botão alterar, e excluir estão funcionando, exceto o de incluir, quando tento incluir algo recebo uma exceção. Depurei a o erro acontece exatamente no código abaixo. Que erro é este?   Tentei atribuir o código do usuário para o novo cliente desta forma TCliente(pCliente).UsuarioCadastro.Id := 1; , mas também não funcionou. Tenho que instanciar o usuário no meu formulário?
Grato   Denivaldo Junior      -----------------------------------   Evento OnClick do botão Novo:
  Cliente := TCliente.Create;
  Cliente.State := sdNew;
  BtnGravar.Enabled := true;
  BtnCancelar.Enabled := True;
  BtnExcluir.Enabled := false;
  BtnEditar.Enabled := false;
  BtnNovo.Enabled := false;

Evento OnClick do botão Gravar:
  ViewToModel(Cliente);
  if(Cliente.State = sdNew)then
  begin
    Cliente.UsuarioCadastro :=  TAplicacao.GetInstance.UsuarioLogado;
    Dao.Insert(cliente);
  end
  else if(Cliente.State = sdEdit)then
    Dao.Update(cliente);

Procedure ViewToModel:
  pCliente.Id := StrToInt(edtID.Text);
  pCliente.Nome := edtNome.Text;
  pCliente.Idade := StrToInt(edtIdade.Text);
  pCliente.Bairro := EdtBairro.Text;
  pCliente.DiaCadastro := DateOf(now);
  pCliente.HoraCadastro := TimeOf(now);

Procedimento Insert da Classe ClienteDao
procedure TClienteDao.Insert(pCliente:TBaseDomain);
var Qry:TSQLQuery;
    Transacao : TDBXTransaction;
begin
  Qry := TSQLQuery.Create(nil);
  Qry.SQLConnection := TConexaoBD.GetInstance.ConexaoBD;
  try
    Transacao := Qry.SQLConnection.BeginTransaction;
    Qry.SQL.Add('INSERT INTO CLIENTE(ID, NOME, IDADE, BAIRRO, ID_USUARIO) VALUES ');
    Qry.SQL.Add('(:pID, :pNOME, :pIDADE, :pBAIRRO, :pID_USUARIO)');
    Qry.ParamByName('pID').AsInteger := TCliente(pCliente).ID;
    Qry.ParamByName('pNOME').AsString := TCliente(pCliente).Nome;
    Qry.ParamByName('pIDADE').AsInteger := TCliente(pCliente).Idade;
    Qry.ParamByName('pBAIRRO').AsString := TCliente(pCliente).Bairro;
>>    Qry.ParamByName('pID_USUARIO').AsInteger := TCliente(pCliente).UsuarioCadastro.Id;;
    Qry.ExecSQL();
    pCliente.State := sdBrowse;
    Qry.SQLConnection.CommitFreeAndNil(Transacao);
  except
    Qry.SQLConnection.RollbackFreeAndNil(Transacao);
    Application.MessageBox('Um erro aconteceu operação cancelada!', 'ERRO!', MB_APPLMODAL + MB_ICONEXCLAMATION + MB_OK+MB_DEFBUTTON1);
  end;
end;