Source position: location.pas line 20
type TLocationStatusChanged = procedure(
Sender: TObject;
status: Integer;
provider: string;
msgStatus: string
) of object;