function GetSafeClassName(AObject: TObject): string;
begin
  if AObject <> nil then
    Result := AObject.ClassName
  else
    Result := 'nil';
end;

ShowMessageFmt('Sender: %s, Initiator: %s', [GetSafeClassName(ASender), GetSafeClassName(AInitiator)]);