174 		begin

   174 		begin

   175 		AddVisualGear:= nil;

   175 		AddVisualGear:= nil;

   176 		exit

   176 		exit

   177 		end;

   177 		end;

   178 

   178 

   179 New(Result);

   185 New(Result);

   180 FillChar(Result^, sizeof(TVisualGear), 0);

   186 FillChar(Result^, sizeof(TVisualGear), 0);

   181 Result^.X:= int2hwFloat(X);

   187 Result^.X:= int2hwFloat(X);

   182 Result^.Y:= int2hwFloat(Y);

   188 Result^.Y:= int2hwFloat(Y);

   183 Result^.Kind := Kind;

   189 Result^.Kind := Kind;