Определить позицию каретки

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Timer1Timer(Sender: TObject);
var
  row: integer;
begin
  row := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  Label1.Caption := 'x=' + IntToStr(Memo1.SelStart –
    Memo1.Perform(EM_LINEINDEX, row, 0) + 1);
  Label2.Caption := 'y=' + IntToStr(row + 1);
end;