Рисование на bmp

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;
 
type
  TForm2 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TMyObject = class
    Image: TImage;
    BMP: TBitmap;
    constructor create(Conteiner: TWinControl);
    destructor destroy;
 
    procedure ObjPaint;
  end;
 
var
  Form2: TForm2;
  Obj: TMyObject;
 
implementation
 
{$R *.dfm}
{ TMyObject }
 
constructor TMyObject.create(Conteiner: TWinControl);
begin
  Image := TImage.create(Conteiner);
  Image.Parent := Conteiner;
  Image.Width := 500;
  Image.Align := alLeft;
 
  BMP := TBitmap.create;
 
  Image.Picture.Bitmap := BMP;
 
end;
 
destructor TMyObject.destroy;
begin
  Image.Free;
end;
 
procedure TMyObject.ObjPaint;
begin
  with BMP.Canvas do
  begin
    Pen.Color := clBlack;
    MoveTo(5, 5);
    LineTo(200, 200);
  end;
 
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  Obj := TMyObject.create(Panel1);
  Obj.ObjPaint;
end;
 
end.