Нестыковка переменных

[Kronos913]

Раньше у меня легко получалось подменять одну переменную другой

var
  s:string;
  w:longWord;

w:=LongWord(s)

Или даже

var
  d:longWord;
  ss:TStringList;

ss:=TStringList(@d);

И этот код работал. Использовалось это все для того чтобы одна и та же процедура могла принимать параметры разного типа через одну и ту же переменную

Но вот попытка аналогичным образом подставить одну процедуру вместо другой даёт ошибку

type
  ProcedureClick=procedure(Sender: TObject) of object;
  ProcedureMouseDown=procedure(Sender: TObject; Button: TMouseButton;
                           Shift: TShiftState; X, Y: Integer) of object;

Как обойти ошибку?

[Arigato]

А как они должны взаимозаменяться, если у них даже количество параметров разное?

[evg_m]

Раньше у меня легко получалось подменять одну переменную другой

для этого был придуман absolute

https://programmersforum.ru/showthre...bsolute&page=2
#15 "другой способ приведения типа"

+ "экономия" места одной переменной или двух?