关于RichEdit查找字符串的问题

我在RichEdit查找字符串，找到结果后，选择字符串并移到字符串当前行，我在找到字符串后，写如下代码：
            RichEdit1.SetFocus;
            RichEdit1.SelStart := flag;
            RichEdit1.SelLength := Length(Edit1.Text);
其中flag，为RichEdit中文本开头到找到的字符串的开头的字符数，
这段代码能实现字符串的选择，但不能实现移到字符串当前行，那么如何才能实现移到字符串当前行呢？大家帮忙呀！！谢谢！！