No puedes poner directamente el nombre de los componentes dentro de la consulta. Tienes que poner
el contenido de estos.
Así:
Código Delphi
[-] d:=d+1;
query1.close;
query1.sql.clear;
query1.sql.text:= ('insert into empl values (' +intToStr(d)+ ',' +edit1.Text+ ',' +checkbox1.Text+ ',cd,ubic)');