>>689 訂正．
i) 引数で子フォームの実体を指定する
procedure Clr_Image(ChildForm: TMDI_A; WakuColor,NaibuColor ・・・);
（中略）
with ChildForm.Image1.Canvas do // (←)
（以下略）

ii) この手続きを子フォームの公開された（public）メソッドにする
・宣言
TMDI_A = class(TForm)
（中略）
public
procedure Clr_Image(WakuColor,NaibuColor ・・・);
（中略）
end;

・実装
procedure TMDI_A.Clr_Image(WakuColor,NaibuColor ・・・);
（中略）
with ChildForm.Image1.Canvas do // (←)
（以下略）