Как передать в Unit1 объект, который находится в Unit3, избегая ошибки: Circular unit reference to ‘Unit3′?

Добрый день, товарищи. Появился следующий вопрос:
Есть класс TCell, который для удобства вынесен в отдельный Unit

Type
    TCell = class

  Public
        X1, Y1: Integer;                  // Координата первой точки
        X2, Y2: Integer;                  // Координата второй точки
        Width_cell: Integer;              // Ширина клетки
        Status: Integer;    // Статус клеточки

        // Пользовательский конструктор
        Constructor CreateUserCell(my_X1, my_Y1, my_X2, my_Y2: Integer);

        Procedure SetColorRed();    // Установить красный цвет
End;

Под Implementation вот такой код:

procedure TCell.SetColorRed;
begin
      Form3.Image1.Canvas.Brush.Color := clRed;
end;

Компилятор жалуется на то что я использую Form3 в другом Unit. Вот такая ошибка возникает: Circular unit reference to ‘Unit3′ Вопрос, как передать объект из Unit3 в другой Unit. Заранее спасибо за ответы и комментарии. Буду благодарен хотя бы за рекомендацию по поводу того, как загуглить.