procedure TMainForm.captainClick(Sender: TObject); var captainkaiho: Boolean; begin captainkaiho := True; //captain.tagが1(=このスレのこと知ってる)ならリーダーへの無限ループお仕置き if captain.Tag = 1 then begin while captainkaiho do//captainkaihoがTrueである限り無限に実行 begin ShowMessage('みんなを苛めた罰としてスレのみんなからの素敵なプレゼントだ!'); Boryoku(Sender, captain);//リーダーへ殴る、蹴るの暴行 Boryoku(Sender, ide);//井出へ殴る、蹴るの暴行 end; end; end;