我在function里对richedit操作为什么不可以？

其中redit是richedit，属性name已经改为redit
提示redit未声明
function GetSQL():string;
var
Lpos:integer;
begin
  Lpos:=SendMessage(REdit.Handle,EM_LINEFROMCHAR,redit.SelStart,0);
                       //^在这里提示出错
if lpos>0 then
begin
while (redit.lines[lpos-1]<>'') and (lpos > 0) do
lpos:=lpos-1;
end;
while (redit.lines[lpos]<>'') and (redit.lines.count>lpos) do
begin
sql:=sql+redit.lines[lpos];
lpos:=lpos+1;
end;
result:=sql;
end;