Fórum Erro - Incompatible Types: String and Integer #471406

procedure InserirOperadores(Codigo:Integer; Situacao: String; Nome: String;
      NomeFantasia: String; Senha: Integer; Confirmacao: Integer; Endereco: String;
      Numero: String; Cidade: String; Estado: String; Cep: String;
      DataNascimento: String; DataAdmissao: String;
      DataDemissao: String; Cpf: String; Rg: String; Telefone1: String; Telefone2: String;
      ComissaoAvista: Integer; ComissaoAprazo: Integer; Empresa: String; Departamento: String;
      Email: String; Observacoes: String);

 {Inserir Operadores No Banco De Dados}
procedure TFrmCadOperadores.InserirOperadores(Codigo: Integer; Situacao: String; Nome: String;
NomeFantasia: String; Senha: Integer; Confirmacao: Integer; Endereco: String;
Numero: String; Cidade: String; Estado: String; Cep: String;
DataNascimento: String; DataAdmissao: String;
DataDemissao: String; Cpf: String; Rg: String; Telefone1: String; Telefone2: String;
ComissaoAvista: Integer; ComissaoAprazo: Integer; Empresa: String; Departamento: String;
Email: String; Observacoes: String);
begin
WITH Dm.QueryCadOperadores Do
begin
Close;  //Fecha a QueryCadOperadores
SQL.Clear;//Limpa a Sql da QueryCadOperadores
SQL.Add(''''INSERT INTO CadOperadores (Codigo, Situacao, Nome, NomeFantasia,'''' +
''''Senha, Confirmacao, Endereco, Numero, Cidade, Estado, Cep, DataNascimento,'''' +
''''DataAdmissao, DataDemissao, Cpf, Rg, Telefone1, Telefone2, ComissaoAvista,'''' +
''''ComissaoAprazo, Empresa, Departamento, Email, Observacoes)'''' +
''''VALUES(:Codigo,:Situacao, :Nome, :NomeFantasia, :Senha, :Confirmacao,'''' +
'''':Endereco, :Numero, :Cidade, :Estado, :Cep, :DataNascimento, '''' +
'''':DataAdmissao, :DataDemissao, :Cpf, :Rg, :Telefone1, :Telefone2, :ComissaoAvista,''''+
'''':ComissaoAprazo, :Empresa, :Departamento, :Email, :Observacoes)'''');//Insere No Banco os Dados dos Edits
Parameters.ParamByName(''''Codigo'''').Value := Codigo;
Parameters.ParamByName(''''Situacao'''').Value := Situacao;
Parameters.ParamByName(''''Nome'''').Value := Nome;
Parameters.ParamByName(''''NomeFantasia'''').Value := NomeFantasia;
Parameters.ParamByName(''''Senha'''').Value := Senha;
Parameters.ParamByName(''''Confirmacao'''').Value := Confirmacao;
Parameters.ParamByName(''''Endereco'''').Value := Endereco;
Parameters.ParamByName(''''Numero'''').Value := Numero;
Parameters.ParamByName(''''Cidade'''').Value := Cidade;
Parameters.ParamByName(''''Estado'''').Value := Estado;
Parameters.ParamByName(''''Cep'''').Value := Cep;
Parameters.ParamByName(''''DataNascimento'''').Value := DataNascimento;
Parameters.ParamByName(''''DataAdmissao'''').Value := DataAdmissao;
Parameters.ParamByName(''''DataDemissao'''').Value := DataDemissao;
Parameters.ParamByName(''''Cpf'''').Value := Cpf;
Parameters.ParamByName(''''Rg'''').Value := Rg;
Parameters.ParamByName(''''Telefone1'''').Value := Telefone1;
Parameters.ParamByName(''''Telefone2'''').Value := Telefone2;
Parameters.ParamByName(''''ComissaoAvista'''').Value := ComissaoAvista;
Parameters.ParamByName(''''ComissaoAprazo'''').Value := ComissaoAprazo;
Parameters.ParamByName(''''Empresa'''').Value := Empresa;
Parameters.ParamByName(''''Departamento'''').Value := Departamento;
Parameters.ParamByName(''''Email'''').Value := Email;
Parameters.ParamByName(''''Observacoes'''').Value := Observacoes;
ExecSQL;//Executa o Sql Acima
end;
ShowMessage(''''Cadastro Efetuado Com Sucesso!'''');
end;

procedure TFrmCadOperadores.SpeedBtnGravarClick(Sender: TObject);
begin
InserirOperadores(StrToInt(EdtCodigo.Text), EdtSituacao.Text, EdtNome.Text, EdtNomeFantasia.Text,+
StrToInt(EdtSenha.Text), StrToInt(EdtConfirmacao.Text), EdtEndereco.Text+
EdtNumero.Text, EdtCidade.Text, EdtEstado.Text, MskCep.Text, MskDataNascimento.Text+
MskDataAdmissao.Text, MskDataDemissao.Text, MskCpf.Text, EdtRg.Text, MskTelefone1.Text+
MskTelefone2.Text, StrToInt(EdtComissaoAvista.Text), StrToInt(EdtComissaoAprazo.Text)+
EdtEmpresa.Text, EdtDepartamento.Text, EdtEmail.Text, MemoObservacoes.Lines);
end;