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

procedure TfrmPlotter.btnZeichneGraphClick(Sender: TObject); //Proz durch Buttonklick aufrufen
begin  
  Wertetabelle(x,y: extended; i:integer; term: string);
end;

procedure Wertetabelle(var x,y: extended; i:integer; term: string); //eigentliche Proz.
begin
[...]
end;					

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

procedure TfrmPlotter.btnZeichneGraphClick(Sender: TObject); //Proz durch Buttonklick aufrufen
var
  x,y: Double; // sollte reichen
  i:integer; 
  term: string
begin  
  Wertetabelle(x,y,i,term);
end;

procedure Wertetabelle(var x,y: Double; i:integer; term: string); //eigentliche Proz.
begin
[...]
end;