Методы | Процедурные типы |
Incompatible types |

Здравствуйте! Возникла проблема) Как можно реализовать что-то типа присваивания процедур? Т.Е.

type
TMyType = array of Integer;

TMyProc = procedure(var a : TMyType);

TMyClass = class(TObject)
...
public
  proc1(var a : TMyType);
  proc2(var a : TMyType);
end;
...
procedure TForm1.Button1Click(...);
var
  proc : TMyProc;
  mc : TMyClass;
  x : TMyType;
begin
  mc := TMyClass.Create(...);
  if <условие> then
      proc := mc.proc1  (*Incompatible types: 'regular procedure and method pointer'*)
  else
      proc := mc.proc2; (*Incompatible types: 'regular procedure and method pointer'*)

  proc(x);
  mc.Free;
end;

 

Как реализовать? Что-то я не догоняю=(