Fórum Duvida em Consulta em SQL #583533

Parameters.ParamByName('pTipodePermicao').Value:=permissao2;

procedure TfrmCadPermissoes.GravarPermissoes;
var
permissao1:integer;
permissao2:string;
begin
TiposdePermissao[1]:='Acessar';
TiposdePermissao[2]:='Cadastrar';
TiposdePermissao[3]:='Alterar';
TiposdePermissao[4]:='Excluir';

for panels := 1 to 41 do begin

for checks := 1 to 4 do begin
permissao2:=TiposdePermissao[checks];
showmessage(permissao2);
    if valores[checks]='s' then begin
      with QryInsertPermissoes do begin
        Close;
        SQL.Clear;
        SQL.Add('Insert into Permissoes (IdItemMenu, :pTipodePermicao ) values ( :pIDIntemMenu ,''s'') where CodFuncionario '+ '1');
        Parameters.ParamByName('pIDIntemMenu').Value:=InttoStr(panels);
        Parameters.ParamByName('pTipodePermicao').Value:=permissao2;
        ExecSQL;
      end
    end;
    if valores[checks]='n' then begin
      with QryInsertPermissoes do begin
        Close;
        SQL.Clear;
        SQL.Add('Insert into Permissoes (IdItemMenu, :pTipodePermicao ) values (:pIDIntemMenu,''n'') where CodFuncionario '+ '1');
        Parameters.ParamByName('pIDIntemMenu').Value:=InttoStr(panels);
        Parameters.ParamByName('pTipodePermicao').Value:=permissao2;
        ExecSQL;
      end;
    end;

end;
ProgressBar1.Position:=ProgressBar1.Position+1;
end;
end;