[__cadetill]

A ver si te he entendido....

procedure MiProc1(param1, param2 : string);
begin
   MiProc2(param2);
end;

procedure MiProc2(param2: string);
begin
end;

Es decir, has de enviar al procedimiento 1 los parámetros necesarios para él y para el procedimiento al que llama