[ART]

Код:

 type
  TCoord = record
   x, y: real;
  end;

 TPoints = array of TCoords;

И передаешь в процедуру вместо функции:

Код:

 procedure DrawGraph (var mass: TPoints; a: real; b: real; C: TCanvas);

Забить массив можно так:

Код:

 function Coord(x, y: real): TCoord;
 begin
  result.x := x;
  result.y := y;
 end;
 
 function getPoints: TPoints;
 var
  x: integer; //лучше real, но код немного другой будет
  Ps: TPoints;
 begin
 SetLength(Ps, 0);
  for x := -100 to 100 do begin
   SetLength(Ps, Length(Ps) + 1);
   Ps[High(Ps)] := Coord(x, f(x)); //f(x) - твоя функция
  end;
 Result := Ps;
 end;

Или еще можно значения брать из файла.