Как рисовать на Canvas объектов

[Jean-Esther]

Привет. Буду краток.
Образно говоря, допустим, есть у меня два модуля unit1 и unit2. В Первом объявлена переменная Form1 типа TForm1=class(TForm), во втором же — некоторый объект A типа TA=class(TObject). У TA есть метод TA.DrawSomething(). На TForm1 есть два рисунка Image1 и Image2 типа TImage.
Теперь вопрос дня: как мне организовать тип TA таким образом, чтоб метод DrawSomething() рисовал на Canvas определенного объекта (который задается, судя по всему, в аргументах метода), будь то форма или изображение?
В чем проблема: как нечто конкретное могу такое рассмотреть:

procedure TA.DrawSomething(C:TCanvas);
begin
  C.MoveTo(10,10);
  C.LineTo(30,10);
  C.TextOut(50,50,'s');
end;

Это было бы решением, но:
Полотно не может быть передано в качестве аргумента, потому что оно и у TForm (соответственно, TForm1), и у TImage является ReadOnly-Property.

Что посоветуете?

Не следует слишком буквально понимать поговорку "Краткость - сестра таланта".
Ваше название темы ("Canvas") нарушает правила раздела.
На первый раз я его подправил. В следующий раз - просто удалю такую тему.
Рекомендую почитать правила.

[VVM]

Не знаю, может я чего-то не понимаю, но у меня проблем не возникло:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TA = class
    procedure DrawSomething(C: TCanvas);
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TA }

procedure TA.DrawSomething(C: TCanvas);
begin
  C.MoveTo(10, 10);
  C.LineTo(20, 20);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A: TA;
begin
  A := Ta.Create;
  A.DrawSomething(Image1.Canvas);
  A.Free;
end;

end.

Все откомпилировалось и работет.

Вот вариант с двумя модулями. Тоже все работает.

[roach1967]

Может не в тему, но -

Полотно не может быть передано в качестве аргумента, потому что оно и у TForm (соответственно, TForm1), и у TImage является ReadOnly-Property.

Я сталкивался во многих местах с тем-же, и нарыл, применимо к данному случаю, что если полотно и READONLY, это не значит, что его свойства/методы то-же READONLY, чем постоянно пользуюсь.