График функций

[Estrella]

Пожалуйста помогите, мне нужно на Делфи написать програмку которая будет рисовать график функций, есть один нюанс, мне даются 2 точки через которые проходит прямая, незнаю как задать этот график. Очень благодарна всем кто поможет

[Virtson]

with Form1.Canvas do
begin
MoveTo(p1.X, p1.Y);
LineTo(p2.X, p2.Y);
end;

[kommunist]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TFastLineSeries;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x:word;
begin
for x:= 1 to 50 do
series1.AddXY(x,x+1); {здесь впишеш точки какие надо}
series1.AddXY(x,x-7);{здесь впишеш точки какие надо} //x+1 и x-7
end; //это мои точки
end.
граффик построен на chart.

[S.W.A.T.]

http://www.saprulez.ru/download.php?view.52
Вот еще готовая программа рисования линии....можно сказать не такая простая как тут представлена, там по алгоритму Брезенхема.