Fórum Salvar o item do Combobox no Dataset #465316

procedure TfrmIncCli.actSalvarExecute(Sender: TObject);
var
  vlSQL: string;
begin
  if dsIncCli.DataSet.State in [dsBrowse, dsEdit, dsInsert] then
  begin
    vlSQL:= 'insert into cadcli values (,,,,,,,,,,,,,,,'+ cbTpCliente.Text + ',,);';
    ShowMessage(cbTpCliente.Text);
    dmCadOS.qryTpCli.SQL.CommaText := vlSQL;
    dmCadOS.qryTpCli.ExecSQL;
    dmCadOS.qryCadCli.Post;
    dmCadOS.qryCadCli.ApplyUpdates(-1);
    dmCadOS.qryCadCli.Close;
    actIncluir.Enabled:= true;
    actAlterar.Enabled:= true;
    dmCadOS.qryCadCli.Open;
    frmIncCli.Close;
//    dsCadCli.DataSet.Active:= True;
  end
  else
  ShowMessage('Erro. Verifique Informações');
end;