illegal expression bei Procedureaufruf

[haderlump]

Hallo zusammen

bei folgendem Codeteil bekomme ich die Meldung : Error: illegal expression.

Delphi-Quellcode:

 procedure THauptform.HauptbildClick(Sender: TObject);
var
   spalte, reihe: Longint;
   konto,suchbegriff : string;
   Cursorpos: TPoint;
   Hauptforml :longint;

begin
        Hauptforml := Hauptform.top;
        spalte := mouse.cursorPos.x;
        spalte := spalte - Hauptform.left;
        spalte := spalte - hauptbild.left-5;
        reihe := Mouse.Cursorpos.Y;
        reihe := reihe - Hauptform.top;
        reihe := reihe - hauptbild.top -60;
        spalte := spalte    div 9;
        reihe := reihe div 13;

      suchbegriff := bildsch[spalte,reihe].name;

      anfrage(suchbegriff);
      if (anfrageergebnis = 'nicht_gefunden'){and (funktionsnummer <> 0) }then
      begin
      //showmessage('Dieses Feld ist keinem Element zugeordnet');
      exit;
      end ;
      case funktionsnummer of
      1 :       {Ziel Zugstrasse}
      begin
                if akt_element^.zug_zielfaehig  = true then
                begin
                     funktionsnummer := 0;
                     Statuszeile.SimpleText := ''  ;
                     //alle_ziele_loeschen;
                     akt_element^.ziel_gesetzt := true;
 --------->          zugfahrstrasse;
                end
                else
                begin
                    Statuszeile.SimpleText := 'Dieses Element ist nicht als Ziel für Zugfahrten erlaubt (nur Signale)'  ;
                    //showmessage('Dieses Element ist nicht als Ziel für Zugfahrten erlaubt (nur Signale)');
                    timer1.enabled := true;
                end
                end; 
// Der Programmteil geht hier noch weiter

Die Procedure "zugfahrstrasse" (durch den langen Pfeil gekennzeichnet)ist in der Unit vorhanden, richtig deklariert, und erwartet auch keine Parameter.
Was kann an diesem Aufruf illegal sein?

Gruß Fritz