Atualizar Checklistbox com dados da tabela

Tenho uma tabela com dados cadastrado que foram selecionados em um checklistbox.
Preciso que quando abrir novamente para alterar ele mostre os itens ja selecionados que estão na minha tabela

fiz este codigo para acrescentar o valor de uma tabela e preciso fazer uma checagem na outra tabela se o item esta cadastrado e colocar a opção marcada

procedure TForm1.FormShow(Sender: TObject);
begin
Table1.Open;
Table2.Open;
while not Table1.Eof do
begin
CLB1.Items.Add(Table1.FieldByName(´Name´).AsString);
if (Table2.FieldByName(´Produto´).AsString = Edit1.Text) and (Table2.FieldByName(´MODELO´).AsString = Table1.FieldByName (´Name´).AsString) then // aqui verifico se existe o item na tabela 2 e tento marcar o checklistbox, porem não sei como fazer isto
Begin
CLB1.checkend := true; // dar erro por não existe esta propriedade, qual seria

end;
Table1.next;
end;


Me ajude por favor

Claudio