TAgkTextInputFinishEvent = procedure (const Text: String; const Cancelled: Boolean) of object;