如何能讓TMEMO 跳到指定的行號, 我試用了.selStart 的方法還是行不通 請問還有其他的方法嗎?

資料來源 http://www.starinfo.net.cn/computer/hkj_1234/delphi15.htm

procedure SetCaret(Mmo: TMemo; var Row, Col: word);
var
i, iStopLine, iSelStart: integer;
begin
if (Mmo = nil) then Exit;
if Row = 0 then Row := 1;
if Col = 0 then Col := 1;    iStopLine := Row - 1;
iSelStart := 0;
for i := 0 to Mmo.Lines.Count - 1 do
begin
if i = iStopLine then
begin
if Length(Mmo.Lines[i]) >= Col then
Inc(iSelStart, Col)
else
Inc(iSelStart, Length(Mmo.Lines[i])   2);
Break;
end;
Inc(iSelStart, Length(Mmo.Lines[i])   2);
end;
if iSelStart > 0 then Dec(iSelStart);    SendMessage(Mmo.Handle, EM_SETSEL, iSelStart, iSelStart);    Row := SendMessage(Mmo.Handle, EM_LINEFROMCHAR, Mmo.SelStart, 0);
Col := Mmo.SelStart - SendMessage(Mmo.Handle, EM_LINEINDEX, Row, 
0);    SendMessage(Mmo.Handle, EM_SCROLLCARET, 0, 0);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
iRow, iCol: word;
begin
iRow := 6;
iCol := 1;
SetCaret(Memo1, iRow, iCol);
Memo1.SetFocus;
end;

========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。