TShape *Punt = (TShape *)Sender;
if( Punt->Brush->Color == clWhite )
Punt->Brush->Color = clRed;
else if( Punt->Brush->Color == clRed )
Punt->Brush->Color = clLime;
else if( Punt->Brush->Color == clLime )
Punt->Brush->Color = clYellow;
else if( Punt->Brush->Color == clYellow )
Punt->Brush->Color = clWhite;