TIdNNTPOnMovePointer = procedure (AThread: TIdNNTPThread; var AMsgNo: Integer; var VMsgID: string) of object;