fejl i procedure

min kdoe ser således ud

procedure besog(aSt : string; var aBesog : string);
function GetToken(aToken, aSt : string) : string;
  var
    p : integer;
  begin
    result := '';
    p := pos(aToken,aSt);
    if p > 0 then begin
      delete(aSt,1,p+length(aToken)-1); // Slet tekst fra 1 til aToken (incl)
      result := copy(aSt,1,pos(' ',aSt)-1); // Kopiér fra 1 til næste " (excl)
    end; // if
  end;

begin
  aBesog := GetToken('Der har været ',aSt);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
st, Besog : String;
begin
st := IdHTTP1.Get(url.dk');
st := st + Edit5.Text;
besog(st,Besog);
Label6.Caption := Besog;

alligevel får jeg afvide i linien med besog(st,Besog); at missing operation or semicolon... why !?