{ === SOLUÇÃO 1 === }

{ Esta procedure obtém a linha e coluna atual de um TMemo }
procedure tbGetMemoLinCol(Memo: TMemo; var Lin, Col: Cardinal);
begin
  with Memo do begin
    Lin := Perform(EM_LINEFROMCHAR, SelStart, 0);
    Col := SelStart - Perform(EM_LINEINDEX, Lin, 0);
  end;
end;

{ Use-a como abaixo: }

var
  Lin, Col: Cardinal;
begin
  tbGetMemoLinCol(Memo1, Lin, Col);
  { ... }
end;

{ === SOLUÇÃO 2 === }

var
  Lin, Col: integer;
begin
  Lin := Memo1.CaretPos.y;
  Col := Memo1.CaretPos.x;
  {...}
end;

- A segunda solução foi apresentada por:
  Vanderley Pereira Rocha