{Criando duas variaveis (Linha e Coluna), utilize a seguinte rotina}

With Memo1 Do     {Onde Memo1 eh o nome do objeto desejado}
begin
     Linha := Perform(EM_LINEFROMCHAR,SelStart,0);
     Coluna := SelStart - Perform(EM_LINEINDEX,Line,0);
end;