изменение цвета осей и графика функции в Delphi

[mishammm]

Здравствуйте. Есть нарисованный график на компоненте Image с помощью Canvas. Я хочу разработать пару пунктов меню чтобы можно было менять цвет и самого нарисованного графика и чтобы можно было изменить цвет осей х, у. Если писать так, If ColorDialog1.Execute then
image1.Canvas.Brush.Color:=clRed; то оно применяет для всех одинаковый цвет. можно ли как то отдельно менять цвет для осей и отдельно для нарисованого графика? Спасибо!

Вот на всякий случай код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Button2: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
    unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
     mash=30;
var
    a,b:integer;
    x0,y0:integer;
    x,y:real;


begin

  //clear picture
       Image1.Canvas.Pen.Color:=clWhite;
  image1.canvas.Rectangle(0,0,ClientWidth,ClientHeight);

a:=StrtoInt(Edit1.Text);
 b:=StrtoInt(Edit2.Text);



 x0:=image1.Width div 2;
 y0:=image1.Height div 2;

     
     
      Image1.Canvas.Pen.Color:=clgreen;
     with image1.Canvas do
     begin
         Pen.Width:=2;
      MoveTo(x0,0);
     LineTo(x0,ClientHeight);
       moveto(0,y0);
       LineTo(ClientWidth,y0);
       end;
       //ìàëþºìî ãðàô³ê ô=¿
        Image1.Canvas.Pen.Color:=clred;
       image1.Canvas.Pen.Width:=1;
       x:=-10;
      y:=(1/2*a*b)*(abs(sin(x))-sin(x));
       Image1.Canvas.MoveTo(x0+trunc(x*mash),y0+trunc(y*mash));

       repeat
       x:=x+0.1;

      y:=(1/2*a*b)*(abs(sin(x))-sin(x));
       image1.Canvas.Lineto(x0+trunc(x*mash),y0+trunc(y*mash));
       until x>=10;

end;

[BDA]

var
  Form1: TForm1;
  c1, c2: TColor;
...
procedure TForm1.Button1Click(Sender: TObject);
...
  x0 := Image1.Width div 2;
  y0 := Image1.Height div 2;

  with Image1.Canvas do
  begin
    Pen.Color := c1;
    Pen.Width := 2;
    MoveTo(x0, 0);
    LineTo(x0, ClientHeight);
    MoveTo(0, y0);
    LineTo(ClientWidth, y0);
    Pen.Color := c2;
    Pen.Width := 1;
  end;

  x := -10;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    c1 := ColorDialog1.Color;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    c2 := ColorDialog1.Color;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  c1 := clgreen;
  c2 := clred;
end;

[min@y™]

что-то знакомое!