Процедура для разметки осей и тип линии графика

[Brigina]

Здравствуйте, уважаемые программисты!
Пишу программу для построения графиков функции. В связи с чем у меня возникли вопросы.
1. Как составить процедуру для разметки осей?
2. Необходимо реализовать возможность вывода на одно координатное поле нескольких графиков. Не знаю как. У меня получается только каждый график выводить отдельно.
3. Необходимо реализовать масштабирование, настройки цвета и типа линии графиков.
(Настройки цвета линий графиков я реализовала, а вот тип линии не получается).
В приложении код построения линий координат и код выбора цвета линии.
Буду очень благодарна за помощь и объяснение.

{код модуля Uall.pas

В секцию Public формы: }
cx,cy:longint; 
procedure MyLine(x1,y1,x2,y2:real);
procedure GetCxCy(var cx,cy:integer);
Procedure CoordLines(cx,cy:integer);
Procedure MyPixel(x,y:real;color:Tcolor); 

{В секцию реализации (после служебного слова Implementation и Uses):}
Procedure TfmAll.MyPixel(x,y:Real;color:Tcolor);
begin 
imWork.canvas.pixels[Round(cx+x),round(cy-y)]:=Color;
end;

Procedure TfmAll.CoordLines(cx,cy:Integer);
begin
myline(-cx,0,cx,0);
myline(0,-cy,0,cy);
end;

procedure TfmAll.GetCxCy(var cx,cy:integer);
begin
cx:=imWork.Width div 2; 
cy:=imWork.Height div 2;
end;

procedure TfmAll.MyLine(x1,y1,x2,y2:real);

begin
imWork.Canvas.MoveTo(round(cx+x1),round(cy-y1));
imWork.Canvas.lineTo(round(cx+x2),round(cy-y2)); 
end; 


{Выбор цвета линии
на форму fmAll
добавить на созданную панель инструментов (ToolBar1) компонент TPanel (Standard) и переустановите его свойства с помощью Инспектора объектов:
name plPen
Width = 24
Height = 22
BevelOuter = bvNone
Color = clBlack 
Hint = ‘Цвет линий’}

{добавить на форму компонент TColorDialog (Dialogs) и переустановите его свойства с помощью Инспектора объектов:
name = ColorDialog
обработчик события для объекта plPen:}
if ColorDialog.execute then
begin 
imWork.Canvas.pen.color:=ColorDialog.color;
plPen.color:=ColorDialog.color; 
end;

[Stilet]

Вопрос такой - А чем TChart не устраивает?