Source position: kraft.pas line 2504
public procedure TKraftContactManager.AddContact(
const AShapeA: TKraftShape;
const AShapeB: TKraftShape
);