Si quieres seguir haciéndolo como hasta ahora, solo cambia esto:
Código Delphi
[-]
if(mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString == "%" + Edit1->Text + "%")
{
por... más o menos esto:
Código Delphi
[-]
if pos(Edit1->Text->lowercase, mod->busemple->FieldByName("CLAVE_EMPLEADO")->AsString->lowercase) <> 0 then
Básicamente pasar a minúsuculas y usar la función Pos.
Saludos