1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var p,r : integer;
      y,z,x : real;
begin
x := -5;
Repeat
y := x * x;
image1.Canvas.Pixels [round(x*35)+175,round(-y*35)+175]:= clblack;
x := x + 0.01;
Until x > 5;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var p,r,x : integer;
      y,z : real;
begin
x := -350;
Repeat
y := x*x;
image1.Canvas.Pixels [(x*35)+175,round(-y*35)+175]:= clblack;
x := x + 1;
Until x > 350;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.drawFunc(scale:single); 
var p,r,x : integer; 
      y,z : real; 
begin 
  x := -350; 
  Repeat 
    y := (x*scale)*(x*scale); 
    image1.Canvas.Pixels [(x)+175,-trunc(y/scale)+175]:= clblack; 
   x := x + 1; 
  Until x > 350; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.ZeichneFunktion(MinX, MaxX, MinY, MaxY: Real);
var Reihe,Spalte:Integer;
var X,Y:Real;
var PixelProHoeheneinheit:Real;
var PixelProBreiteneinheit:Real;
begin
  PixelProHoeheneinheit:=Image1.Height/(MaxY-MinY);
  PixelProBreiteneinheit:=Image1.Width/(MaxX-MinX);

  Image1.Canvas.MoveTo(-2,0);
  for Spalte:=-1 to Image1.Width-1 do
  begin
    //Was für ein X-Wert der Funktion entspricht dieser Spalte?
    X := MinX + Spalte/PixelProBreiteneinheit;
    //Y-Wert zu X-Wert durch Funktion berechnen
    Y := X*X;
    //Was für eine Reihe entspricht dem errechneten Y-Wert?
    Reihe :=Image1.Height -Trunc(Y*PixelProHoehenEinheit-MinY*PixelProHoehenEinheit);

    //Zeichnen
    Image1.Canvas.LineTo(Spalte,Reihe);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

type pFx = function(x:real):real; // functions-pointer-type erstellen
...
function aFunc(x:real):real; // parameter-definition muss hier mit den typ pFx übereinstimmen
begin
  result := x*x;
end;
...
function anotherFunc(x:real):real; // parameter-definition muss hier mit den typ pFx übereinstimmen
begin
  result := x*x*x-4; // könntest hier den Y-abschnitt auch parametrisieren (b)
end;
...
procedure TForm1.ZeichneFunktion(MinX, MaxX, MinY, MaxY: Real; func: pFx ); 
var Reihe,Spalte:Integer; 
var X,Y:Real; 
var PixelProHoeheneinheit:Real; 
var PixelProBreiteneinheit:Real; 
begin 
  PixelProHoeheneinheit:=Image1.Height/(MaxY-MinY); 
  PixelProBreiteneinheit:=Image1.Width/(MaxX-MinX); 

  Image1.Canvas.MoveTo(-2,0); 
  for Spalte:=-1 to Image1.Width-1 do 
  begin 
    //Was für ein X-Wert der Funktion entspricht dieser Spalte? 
    X := MinX + Spalte/PixelProBreiteneinheit; 

    //Y-Wert zu X-Wert durch Funktion berechnen 
    if func <> nil then Y := func(X); // externe funktion aufrufen

    //Was für eine Reihe entspricht dem errechneten Y-Wert? 
    Reihe :=Image1.Height -Trunc(Y*PixelProHoehenEinheit-MinY*PixelProHoehenEinheit); 

    //Zeichnen 
    Image1.Canvas.LineTo(Spalte,Reihe); 
  end; 
end;					

1:
2:
3:

ZeichneFunktion(0, 0, 400, 300, aFunc); 
//...oder
ZeichneFunktion(0, 0, 400, 300, anotherFunc);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type TFunc=class(TObject)
  private
    fMin: integer;
    fMax: integer;
    fMode: integer;
  public
    function Execute(aIndex: integer);

    property Mode: integer read fMode write fMode;
    property Min: integer read fMin write fMin;
    property Max: integer read fMax write fMax;
end;