Delphi. Нужно добавить события и еще немного ..., 500р. Опции

[SeregaR1Val]

Мне нужно написать на Delphi модель озера с рыбами 2-х видов: щука и карп. Озеро у меня прорисовывается, рыбы плавают. Мне нужно добавить поедание рыбами друг друга(щука ест карпа) и размножение(если встречаются 2 рыбы одинакового вида). Поедание и размножение должны быть реализованы событиями(что-то типа этого: если совпали координаты 2-х рыб, то отправляется сообщение форме и потом добавляется еще одна рыба или наоборот удаляется из массива). Программа не сложная, все понятно, исходный мой код желательно не сильно портить. Кто заинтересуется пишите мне.