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

[killerprince]

****已知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

[killerprince]

THX!!!

[blazingfire]

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