[Assistant]

Код:

...............
  procedure Change(Sender: TObject);
...........

procedure TForm1.Change(Sender: TObject);
begin
  Form1.ActiveControl := nil;
end;

.........

begin
  Check := TCheckBox.Create(Self);
  Check.Parent := Panel;
  Check.Left := 5;
  Check.Top := 5;
  Check.Caption := 'RunFat';
  Check.OnClick = Change;
end;