memo定位首行的问题

Question

下面代码：
…………//打开数据库
Memo1.Lines.Add(ADODataSet_fat.FieldByName('Name').AsString);执行后，memo1鼠标定位在最后一行，每次都要拖动滚动条到第一行，有没有方法在执行上面的程序后定位到第一行？这样就不用拖滚动条了。

Answer 1

Memo1.Lines[8] := ADODataSet_fat.FieldByName('Name').AsString;

Answer 2

Memo1.Lines.Add(ADODataSet_fat.FieldByName('Name').AsString);
//增加下面这两句语句
Memo1.SelStart := 0;
Memo1.SelLength := 0;

Answer 3

SendMessage(Memo1.Handle,  { HWND of the Memo Control }
                WM_VSCROLL,    { Windows Message }
                SB_TOP,     { Scroll Command }
                0);

Answer 4

memo2.SetFocus;
memo2.SelStart:=0;
memo2.SelLength:=0;