Двое уже высказалось по этому поводу. Кто следующий
iarspider, схему в студию (можно набросок)
------------ Дoбавленo:
Tad, почему ты исправил вот это
procedure THIRadioButton._work_doSelect;
begin
Control.Checked := ReadBool(_Data);
// SendMessage(Control.Handle,BM_CLICK,0,0);
end;
Не помню, но где-то это обсуждалось, почему именно SendMessage надо оставить