Fórum IBDataSet com Edit, Onde está o Erro? #231080

procedure TfrmFuncionarios.btnSalvarClick(Sender: TObject);
begin
if Opt = ´novo´ then
begin
DMSyscol.QryFuncionarios.Last;
EdtCodigo.Text := IntToStr(DMSyscol.QryFuncionariosCodigo.Value+1);
DMSyscol.QryFuncionarios.Append;
try
screen.cursor :=crSqlWait;
if not(DMSyscol.IbtSyscol.InTransaction)then
begin
DmSyscol.QryFuncionarios.ParamByName(´codigo´).AsInteger:=StrToInt(EdtCodigo.Text);
DmSyscol.QryFuncionarios.ParamByName(´Nome´).AsString:=EdtNome.Text;
DmSyscol.QryFuncionarios.ParamByName(´Login´).AsString:=EdtLogin.Text;
DmSyscol.QryFuncionarios.ParamByName(´Senha´).AsString:=EdtSenha.Text;
DMSyscol.IbtSyscol.StartTransaction;
DMSyscol.QryFuncionarios.post;
DMSyscol.QryFuncionarios.applyUpdates;
DMSyscol.IbtSyscol.CommitRetaining;
end;
finally
Screen.cursor :=CrDefault;
end;
end
end;

----------------------------------------------------------

Cláusula InsertSQL do meu IBDataSet

insert into FUNCIONARIOS
(CODIGO, NOME, LOGIN, SENHA)
values
(:CODIGO, :NOME, :LOGIN, :SENHA);

------------------------------------------------------------

Porque os dados não aparecem no BD.