Autocheck Help

Hello,
I have a checkbox, and I want that when I mark it, another checkbox is automatically marked ..., I know it's a simple thing, but I do not give with the problem .., I do it this way

procedure frmAddUser_chbRead_OnClick (Sender: TObject);
begin
if frmAddUser.chbRead.Checked = 'True' then
begin
frmAddUser.chbSearch.Checked = True;
end;
end;