(defun delphi-jump-to-declaration ()
  (interactive)
  (let ( (pt (ignore-errors
               (save-excursion
        (end-of-line)
        (re-search-backward "^\\(procedure\\|function\\|constructor\\|destructor\\)[ \t]+\\([_a-zA-Z][_a-zA-Z0-9]*\\>\\)?\\.?\\([_a-zA-Z][_a-zA-Z0-9]*\\)")
        (let ( (method-type  (match-string-no-properties 1)) 
               (class-name   (if (match-string 3) (match-string-no-properties 2) "" ))
               (func-name    (or (match-string-no-properties 3) (match-string-no-properties 2))) )
          (beginning-of-buffer)
          (if (> (length class-name) 0)
              (re-search-forward (format "%s[ \t]+=" class-name)))
          (when (re-search-forward (format "%s[ \t]+%s\\>" method-type func-name))
              (backward-word)
              (point)))))) )
    (when pt (goto-char pt))))
      

(defun delphi-jump-to-implementaion()
  (interactive)
  (let ( (pt (ignore-errors
               (beginning-of-line)
               (when (re-search-forward "\\(procedure\\|function\\|constructor\\|destructor\\)[ \\t]+\\([_a-zA-Z][_a-zA-Z0-9]*\\)")
                 (let ( (method-type  (match-string-no-properties 1))  ;;procedure/function/constructor
                        (func-name    (match-string-no-properties 2))
                        type-name
                        type-type)
                   (when (re-search-backward "\\<\\([_a-zA-Z][_a-zA-Z0-9]*\\)[ \\t]*=[ \\t]*\\(class\\|interface\\)")
                     (setq type-name (match-string-no-properties 1))
                     (setq type-type (match-string-no-properties 2)))
                   (if (string= type-type "interface")
                       (error "interface has no implementation part: %s" type-name)
                     (progn
                       (re-search-forward "^implementation\\>" nil t)
                       ;;(message "%s|%s|%s" method-type type-name func-name)
                       (if type-name
                           (re-search-forward (format "%s[ \\t]+%s\\.[ \\t]?%s\\>" method-type type-name func-name))
                         (re-search-forward (format "%s[ \\t]+%s\\>" method-type func-name))))))))) )
    (when pt (progn
	       (goto-char pt)
	       (beginning-of-line)))))
			

(define-key delphi-mode-map (kbd "<C-S-up>") 'delphi-jump-to-declaration)
(define-key delphi-mode-map (kbd "<C-S-down>") 'delphi-jump-to-implementaion)