Ayuda con MasterMind
 

Hola a todos, espero qeu me podais ayudar. Estoy intentando hacer el juego
de MasterMind y me he atrancado y no puedo seguir. Para reutilizar código
he creado un procedimiento llamado "Colores". En él parte del código es este:

case i of
0: begin
Form1.shape1.Brush.Color:=clblack;
end;
1: begin
Form1.shape1.Brush.Color:=clred;
end; ...

Mi problema es que al hacer la llamada, como este procedimiento esta hecho
sobre "Shape1", es Shape1 el que siempre cambia:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Colores(sender);

end;

¿Que tengo que poner en vez de Form1.Shape1....para que ese procedimiento me funcione en cada shape que tengo y no solo en el 1???. Espero que me podais ayudar. Muchas gracias.

TShape(Sender).Brush.Color := ...

// Saludos