// Form Üzerine bir memo bileşeni ve bir button koyarak bakabilirsiniz.
procedure TForm1.Button1Click(Sender: TObject);
Var
Row,Col :Integer;
begin
Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
Col := memo1.SelStart-SendMessage(Memo1.Handle, EM_LINEINDEX, Row, 0);
end;