怎样读出MEMO控件的当前值

怎样读出MEMO控件的当前值2008-04-20使用MEMO控件的em_LineFromChar属性,程序如下:

procedure TMyForm.BitBtn1Click（Sender: TObject）;
var
iLine : Integer ;
begin
iLine := Memo1.Perform（em_LineFromChar, $FFFF, 0）;
{ Note: 第一行为 0 }
messageDlg（Line Number: + IntToStr（iLine）, mtInformation,
[mbOK], 0 ） ;
end;