Problema de Query y Tedit AYUDA PORFAVOR

[hurricane21]

Hola que tal. Mi problema es el siguiente Tengo un formulario el cual se trata de incluir nuevos datos dentro de una base de datos, en el cual por obligacion debo tener Tedit, y estos a su vez conectarlos a Un query y a un datasource los cuales estan dirigidos hacia mi base de datos. El problema es que me tira un error al pulsar el boton aceptar (el cual me deberia ingresar automaticamente los valores insertados a mano),me dice que al 'field' en este caso '@codigopostal' no le inclui los suficientes parametros, siendo que el formulario esta hecho para incluir los datos de codigo postal, en el tedit, y lo mismo pasa con cada uno de los 'field'. ademas le tengo este codigo

Código Delphi [-]
procedure TForm11.BB_AceptarClick(Sender: TObject);
var
  query:string;
begin
   query := 'SP_AGREGAR_EMPLEADO ' +
             chr(39) + ED_idEmployee.text + chr(39) + ',' +
             chr(39) + ED_LastName.text + chr(39) + ',' +
             chr(39) + ED_FirstName.text + chr(39) + ',' +
             chr(39) + ED_Title.text + chr(39) + ',' +
             chr(39) + ED_TitleofCourtesy.text + chr(39) + ',' +
             chr(39) + ED_BirthDate.text + chr(39) + ',' +
             chr(39) + ED_HireDate.text + chr(39) + ',' +
             chr(39) + ED_Adress.text + chr(39) + ',' +
             chr(39) + ED_City.Text + chr(39) + ',' +
             chr(39) + ED_Region.Text + chr(39) + ',' +
             chr(39) + ED_PostalCode.text + chr(39) + ',' +
             chr(39) + ED_Country.text + chr(39) + ',' +
             chr(39) + ED_HomePhone.text + chr(39) + ',' +
             chr(39) + ED_Extension.text + chr(39);

   if Messagedlg('Está seguro de guardar este registro?', mtwarning, [mbYes,mbNo],0) = mrYes then
       begin
          Query2.SQL.Clear;
          Query2.SQL.Add(query);
          Query2.ExecSQL;
          Showmessage('Registro guardado en forma correcta');
          close
       end;
end;

Si alguien me puede ayudar, bienvenido sea.