Delphi-Quellcode:
procedure Spielstein(Target: TStringgrid)
If
(Target.cells[y,2] =IntToStr(1)) or (Target.Cells[1,2] =IntToStr(2))
then
Target.cells[y,1]:=IntToStr(Spieler)
Wo du nun noch die Werte für "y" und "Spieler" herbekommst, kann ich dir so noch nicht sagen - dafür war der Code-Ausschnitt zu kurz.
Das Ganze funktioniert sowies nur dann, wenn der Aufruf
Spielstein(stringgrid1);
an einer Stelle erfolgt, wo sowohl "Spielstein" als auch "stringgrid1" bekannt sind.