Problem mit einfügen einer function in procedure

[wolfaa]

hallo
ich muss ein projekt erstellen in einer eigenen unit und habe schon jetzt einen fehler

hier der ausschnitt:

procedure TGaskosten.erdgaschecked;
var a: real;
begin
erdgaspreisberechnen(a : real): real;
end;


erdgaspreisberechnen ist eine function.
delphi hätte gerne eine ( anstatt eines doppelpunktes... und zwar bei ...(a : real):real;

was soll ich tun?
habe schon nach fehlern gesucht aber keine gefunden
vielen dank schonmal im vorraus für die hilfe!