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

Question

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

Answer 1

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