Ich nehme mal an, du willst Tic-Tac-Toe spielen.
Wahrscheinlich ist das Property .Tag deiner Images immer auf 0 gesetzt, aber das ist nur eine
Vermutung.
Delphi-Quellcode:
// dein alter Code
tmp := IntToStr( senderImage.Tag );
if ( length( tmp ) > 1 ) then begin
pX := StrToInt( copy( tmp, 1, 1 ) );
pY := StrToInt( copy( tmp, 2, 1 ) );
end
else begin
pX := 0;
pY := StrToInt( tmp );
end;
// hier der vereinfachte Code
// die Koordinaten werden einfach & sauber aus dem .Tag geholt
pX := senderImage.Tag mod 10;
pY := senderImage.Tag div 10;
// ganz wichtig: Koordinaten prüfen
Assert((pX >= 0) and (pX < 3), 'pX out of Range' );
Assert((pY >= 0) and (pY < 3), 'pY out of Range' );