TIdStringMessageEvent = procedure (ASender : TComponent; const AString : String; var AMsg : TIdMessage) of object;