Ich habe auf den ersten Blick keinen Fehler gesehen und hab es in eine Testanwendung kopiert.
- eine PaintBox auf das Formular
- ein Button auf das Formular
- die Eigenschaft Align der PaintBox auf alClient gesetzt
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Parabel(10);
end;
procedure TForm1.linie (x1,y1,x2,y2 : Integer);
begin
PaintBox1.Canvas.MoveTo(x1,y1);
PaintBox1.Canvas.LineTo(x2,y2);
end;
...
...funktioniert