试试这样的代码
procedure TSTANDARDSTYLEMAINFORM.Button3Click(Sender: TObject);
begin
if FDefaultPosition = nil then
begin
Dialogs.ShowMessage(SystemCore.TSYSTEMCORE.Operator.DefaultPosition.PositionID)
end
else
Dialogs.ShowMessage(FDefaultPosition.PositionID);
end;