onGetPointerStyle event  
Custom Polar series can be customized to display diferent pointers using the OnGetPointerStyle event:

Example:
function TForm1.Series1GetPointerStyle
	(Sender: TChartSeries; ValueIndex: Integer): TSeriesPointerStyle;
begin
  if Series1.RadiusValues.Items[ValueIndex] > 600 then
  begin
    Series1.Pointer.HorizSize:=10;
    Series1.Pointer.VertSize:=10;
    result:=psCircle;
  end
  else
  begin
    Series1.Pointer.HorizSize:=4;
    Series1.Pointer.VertSize:=4;
    result:=TSeriesPointerStyle(Random(13));
  end;
end;