como utilizar un cheklistbox

[SARCETA]

Hola a todos espero que esten pasandolo divertido....

Quisiera que me ayudaron con lo siguiente; quiero cargar en un tchecklistbox el nombre del fabricante despues que halla hecho el filtro el la tabla... el programa corre, no envia error pero a la hora de cargar los nombres de los fabricantes no hace nada

De antemano se le agradece su colaboracion

posicion1 := pos('-',cbgrupocomercial.Text);
Showmessage(inttostr(posicion1));
tblFabricantes.Close;
tblFabricantes.SQL.clear;
tblFabricantes.SQL.Add('select * from prueba');
tblFabricantes.SQL.Add('Where iyid = '+coma+'posicion1'+coma);

posicion2 := pos(' ',cbDepartamento.Text);
tblFabricantes.SQL.Add('and class='+coma+Copy(cbDepartamento.Text,1,posicion2-1)+coma);

//Showmessage(Copy(cbGrupoComercial.Text,1,posicion-1)+' '+Copy

(cbDepartamento.Text,1,posicion-1));
tblFabricantes.Open;
tblfabricantes.First;

chkFabricantes.Items.clear;
while not tblFabricantes.Eof do
begin
chkFabricantes.Items.Add(tblfabricantesMFABR.AsString);
tblFabricantes.Next;
end;