Schach:Übertragungsproblem?!

[SteffDaChef]

Bei der case-Funktion kommt der Fehler:[Error] mSchach02a.pas(238): Record, object or class type required.
Also ich habe:

Delphi-Quellcode:

type
  TSchachfigur=(sfBauer1,sfBauer2,sfBauer3,sfBauer4,sfBauer5,sfBauer6,sfBauer7,
  sfBauer8,sfSpringer1,sfSpringer2,sfLaeufer1,sfLaeufer2,sfTurm1,sfTurm2,sfDame,
  sfKoenig,wfBauer1,wfBauer2,wfBauer3,wfBauer4,wfBauer5,wfBauer6,wfBauer7,
  wfBauer8,wfSpringer1,wfSpringer2,wfLaeufer1,wfLaeufer2,wfTurm1,wfTurm2,wfDame,
  wfKoenig);

var figur:TSchachfigur;


procedure check(ox,oy,p,y:integer);
 begin
  case sfBauer1.figur of
  sfBauer1:old(ox,oy,p,y);
  sfBauer2:old(ox,oy,p,y);
  ...

Habe ich da irgendwo was falsch gemacht? Er soll damit einfach überprüfen, ob er auf ein Feld geht, auf der keine weiße Figur ist.