ListBox2.Top:=(memo1.CaretPos.Y-Memo1.Perform(EM_GETFIRSTVISIBLELINE,0,0)+1)*abs(memo1.Font.Height)+8；
