Recuperar valores dos Campos do Banco de Dados FB no Delphi

procedure TFrmPrincipal.rct_inserirprodClick(Sender: TObject);
var
  inserirp, prodcodbarra: string;
  prodcodigo, numesa: integer;
  prodprecvend: double;
begin
  // edt_inserirprod.Text contém o curinga pra usar com like?
  inserirp := edt_inserirprod.Text;

  if inserirp > '' then
  begin
    // se edt_inserirprod.Text não contém o curinga, precisa inserir
    // caso não contenha o % (percentual) o like funciona como = (igual)
    // outra coisa: por padrão o Firebird é case sensitive.
    // nesse caso só vai encontrar o registro se o conteúdo pesquisado for idêntico ao conteúdo gravado.
    // para evitar problemas na busca sugiro sempre transforma tudo em maiúsculas no momento da pesquisa
    inserirp := AnsiUpperCase(inserirp) + '%';

    DM_Comanda.FDQueryInsProd.Close;
    DM_Comanda.FDQueryInsProd.SQL.Text := 'select * from PRODUTO where upper(descricao) like '+QuotedStr(inserirp); // transforma descricao em maiúsculas e pesquisa por um conteúdo também em maiúsculas
    DM_Comanda.FDQueryInsProd.Open;

	if DM_Comanda.FDQueryInsProd.Eof then
	begin
      ShowMessage('Nenhum registro encontrado!');
      exit; // sai da procedure
	end;

    prodcodigo := DM_Comanda.FDQueryInsProd.FieldByName('codigo').AsInteger;
    prodcodbarra :=  DM_Comanda.FDQueryInsProd.FieldByName('codbarra').AsString;
    prodprecvend := DM_Comanda.FDQueryInsProd.FieldByName('precovenda').AsFloat;
 
    numesa := lbl_numesa.Text.ToInteger;
 
    ShowMessage(prodcodigo.tostring);
 
    //DM_Comanda.FDQueryInsProd.Close;
    //DM_Comanda.FDQueryInsProd.SQL.Clear;
    //DM_Comanda.FDQueryInsProd.SQL.Add(''''insert into MESACARTAO (mesa,produto,codbarra,preco) values (numesa,prodcodigo,prodcodbarra,prodprecvend)'''');
    //DM_Comanda.FDQueryInsProd.Open;
   end;

    DM_Comanda.FDQueryInsProd.Close;
    DM_Comanda.FDQueryInsProd.SQL.Text := 'select codigo, codbarra, precovenda from PRODUTO where upper(descricao) like '+QuotedStr(inserirp); // transforma descricao em maiúsculas e pesquisa por um conteúdo também em maiúsculas
    DM_Comanda.FDQueryInsProd.Open;

    prodcodigo := DM_Comanda.FDQueryInsProd.FieldByName('codigo').AsInteger;
    prodcodbarra :=  DM_Comanda.FDQueryInsProd.FieldByName('codbarra').AsString;
    prodprecvend := DM_Comanda.FDQueryInsProd.FieldByName('precovenda').AsFloat;
    numesa := lbl_numesa.Text.ToInteger;

    DM_Comanda.FDQueryInsProd.Close;
    DM_Comanda.FDQueryInsProd.SQL.text := 'insert into MESACARTAO (mesa,produto,codbarra,preco) values (:numesa,:prodcodigo,:prodcodbar,:prodpreco)';
    DM_Comanda.FDQueryInsProd.ParamByName('numesa').AsInteger := numesa;
    DM_Comanda.FDQueryInsProd.ParamByName('prodcodigo').AsInteger := prodcodigo;
    DM_Comanda.FDQueryInsProd.ParamByName('prodcodbar').AsNumeric := prodcodbarra; // é numérico mesmo?
    DM_Comanda.FDQueryInsProd.ParamByName('prodpreco').AsFloat := prodprecvend;
    DM_Comanda.FDQueryInsProd.ExecSQL; // quando você tem um comando DDL ou DML você não abre (Open), você executa (ExecSQL)

    //Se a chave primária for autoincremental não precisa passar para o comando insert