Schach:Übertragungsproblem?!

[SteffDaChef]

Nochmals vielen Dank,

oben müsste dann folgednes stehen:
type
TSchachfigur=(sfBauer1,sfBauer2,sfBauer3,sfBauer4, sfBauer5,sfBauer6,sfBauer7,
sfBauer8,sfSpringer1,sfSpringer2,sfLaeufer1,sfLaeu fer2,sfTurm1,sfTurm2,sfDame,
sfKoenig,wfBauer1,wfBauer2,wfBauer3,wfBauer4,wfBau er5,wfBauer6,wfBauer7,
wfBauer8,wfSpringer1,wfSpringer2,wfLaeufer1,wfLaeu fer2,wfTurm1,wfTurm2,wfDame,
wfKoenig);
TFarbe=(schwarz,weiss);
TSpielfigur=record
figur:TSchachfigur;
farbe:TFarbe;
end;

Da wir das mit record/Verbundtypen nocht nicht genau hatten, habe ich mich mal im Internet schlau gemacht. Doch nun kann doch in TSpielfigur nur eine Figur und eine Farbe gespeichert werden?! Wie/Wo kann ich dann die Figur und die dazugehörige Farbe ( und vllt auch Koordinate )festlegen.
Denn bei der istSchlagbar-Funktion werden ja Koordinate und Farbe zusammen überprüft. Dazu muss man ja erstmal jeder Figur eine feste Farbe geben.

Schon mal Danke im vorraus!

mfg Steffen



Edit:Noch eine Frage. Wenn jetz der Zug funktioniert, wird ja eine Schachfigur auf eine andere verrückt. Die eine Schachfigur wurde dann ja geschalgen und ist weg.
1.Würde die folgende Funktion funktionieren?
2.Wie bekommt man dann noch die Figur aus dem Array?
case sfBauer1 of
ord(wfBauer1):ImSB1.visible:=false;
ord(wfBauer2):ImSB2.visible:=false;