两个关于memo控件的问题？

Question

1：如何控制memo的光标到指定的行列
   例：让光标停留在第2行第4列上
2：正常在memo控件里回车不是换行吗，如何让回车变成换列功能
   例：如果光标在第1列上，如何才能实现回车后，光标到第二列上，如果第2列上有数据，则回
       车窜出一个空列，有数据的窜到第三行。如果没有数据光标到第2行上
不知各位可否明白我的意思，如果解决起来比较麻烦，可以另有分数相送，先谢谢各位

Answer 1

第一个用SelStart实现就可以了～～～
function TForm1.GetSelStart(X, Y: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;  //
  if X > Memo1.Lines.Count then
    X := Memo1.Lines.Count;
  if (X = Memo1.Lines.Count) and (Y > Length(Memo1.Lines.Strings[X-1])) then
    Y := Length(Memo1.Lines.Strings[X]);  //
  for i := 0 to X - 2 do
    Result := Result + Length(Memo1.Lines.Strings[i]) + 2;
  Result := Result + Y;
end;