Необходимо вызвать дважды API-функцию "SendMessage": 


   var 
     xChr, 
     xRow, 
     xCol: LongInt;
   ...
   xRow := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
   xChr := SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
   xCol := Memo1.SelStart - xChr + 1;