надо активировать процедуру только когда RadioButton8.Checked=true

[Донцов]

проблема в том что нада активировать процедуру только когда RadioButton8.Checked=true (делфи)

[BDA]

Ну напишите в первых строках процедуры:

if not RadioButton8.Checked then
  exit;

Или там где вызываете процедуру:

if RadioButton8.Checked then
  my_proc();

[Донцов]

нада когда я выбрал RadioButton8 активировалась процедура procedure TForm3.Image1MouseDown(Sender: TObject; Button: TMouseButton;

[BDA]

Создайте обработчик для OnClick RadioButton8 и впишите код:

if RadioButton8.Checked then
  Image1MouseDown(Sender, mbLeft, [], 0, 0);