ActiveDelphi

[thaita]

Prezados,
Quando tendo salvar um registro, aparece a seguinte mensagem: "Is not a valid integer value". Alguém pode me ajudar? Segue o código abaixo:
procedure TFrmCadastroHQ.btnSalvarClick(Sender: TObject);
var
Mensagem : string;

begin
if dmHQ.cdsHQ.State in [dsInsert] then
begin
// dmHQ.cdsHQId_NomeHQ.AsInteger := StrToInt(edtCodigoNomeHQ.Text); //Campo é autoincremento
dmHQ.cdsHQDataCadastro.AsDatetime := edtDataCadastro.Date;
dmHQ.cdsHQTitulo.AsString := Trim(edtTitulo.text);
dmHQ.cdsHQNumero.AsInteger := StrToInt(edtNumero.Text);
dmHQ.cdsHQVolume.AsInteger := StrToInt(edtVolume.Text);
dmHQ.cdsHQValor.AsCurrency := StrToCurr(edtValor.Text);
dmHQ.cdsHQFotoHQ.AsString := edtFotoHq.Text;
end;
Mensagem := 'Registro alterado com sucesso!';

if DataSource1.State in [dsInsert] then
Mensagem := 'Registro incluído com sucesso!';
TClientDataSet(DataSource1.DataSet).Post;
TClientDataSet(DataSource1.DataSet).ApplyUpdates(0);
ImgFoto.Picture := nil;
edtFotoHq.Clear;

Application.MessageBox(PWideChar(Mensagem), 'Atenção', MB_OK + MB_ICONINFORMATION);
Pesquisar;
pnlPrincipal.ActiveCard := cardPesquisa;

end;