Подменить адрес возврата

[GreenWizard]

Доброе время суток!

Что-то я туплю с достаточно простой задачей если кратко, то нужно программно организовать аналог try...finally...end т.е. подменить адрес возврата.

Допустим есть код вида:

procedure Y();
begin
  ......
end;

procedure X();
begin
  ......
end;

procedure Test(....);
begin
  X();
  ......
end;

procedure Caller(......);
begin
  Test(....);
end;

при этом цепочка вызовов будет иметь вид: Caller => Test => X => возврат в Test => возврат в Caller
В процедуре Х нужно модифицировать стек таким образом, чтоб цепочка приняла след. вид: Caller => Test => X => возврат в Test => возврат в Y => возврат в Caller

Думаю, что это вполне возможно, но что-то не соображу как.
Буду благодарен за помощь в решение вопроса

[Somebody]

В простейшем случае, если Test ничего в стеке не хранит, то

procedure Test();
begin
  X();
  asm
    push offset Y
  end;
end;

[Пепел Феникса]

Somebody, и будет испорчен стек.

нужно заменить старое значение.
то есть mov [esp],offset Y
примерно так.

[GreenWizard]

проблема в том, что Test может что-угодно из себя представлять, любое число параметров/переменных

[Somebody]

Сообщение от Пепел Феникса

Somebody, и будет испорчен стек.

нужно заменить старое значение.
то есть mov [esp],offset Y
примерно так.

Не, если mov [esp], то это возврат в Y вместо Caller, а надо сначала в Y, а потом в Caller. А при push offset это будет новый адрес возврата, а старый станет адресом возврата из Y.

Сообщение от GreenWizard

проблема в том, что Test может что-угодно из себя представлять, любое число параметров/переменных

С локальными переменными можно попробовать

{$W+}
procedure Test();
var
   ...
begin
  ...
  asm
    mov     eax, esi
    mov     edx, edi
    mov     esi, esp
    lea     edi, [esi-4]
    lea     ecx, [ebp+4]
    sub     ecx, esp
    rep movsb
    mov     esi, eax
    mov     edi, edx
    mov     [ebp], offset Y
    sub     ebp, 4
    sub     esp, 4
  end;
   ...
end;

А вот если произвольное количество параметров, это хуже.