*已知Memo中的确定行，在Edit1中显示这一行中的确定列的字符值*解决方法

****已知Memo中的确定行，在Edit1中显示这一行中的确定列的字符值****
****已知Memo中的确定行，在Edit1中显示这一行中的确定列的字符值****
即在memo 中载入一个.txt文件，
现已经求出：光标所在处字符的行 和 列值
如何在edit1 中显示出memo中该字符的值？？？

已经实现了 求出这一行的所有字符：
 LineNo:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0);
 LinePos:=SendMessage(Memo1.Handle,EM_LineIndex,LineNo,0);
 LinePos:=Memo1.SelStart-LinePos;
 Edit1.Text:=memo1.Lines[lineNo];//显示行的所有字符
 //要求的字符的列值为LinePos，行值为LineNo


------解决方案--------------------
var 
S: String;
begin
........
S := memo1.Lines[lineNo];
if (LinePos > 0) and (LinePos <= Length(S)) then
Edit1.Text := S[LinePos]
else
Edit1.Text := '';
end;