一个有关memo.text 的问题？在线等候！(100分)

我要在指定的第m行、第n列写入文本，例如'aaaa',请问代码？

lines.add(' ')m个
lines。add('n个空格'+'aaaa')

procedure TForm1.Button1Click(Sender: TObject);
var
I, Row, Col: Integer;
S: string;
begin
S := 'aaa';
Row := 2;
Col := 3;
I := SendMessage(M.Handle, EM_LINEINDEX, Row, 0) + Col;
SendMessage(M.Handle, EM_SETSEL, I, I + Length(S));//如果插入，第二个参数也是I
SendMessage(M.Handle, EM_REPLACESEL, 1, LongInt(S));
end;

多人接受答案了。