[ecfisa]

Amigo... ¡¡¡ Felicitaciones, diste justo en el clavo !!!

Código Delphi [-]
class procedure TForm2.Mostrar(Num: Integer);
begin
  if not Assigned(Form2) then
    Form2:= Create(nil);
  with Form2 do
  begin
    Visible:= False;
    f_id_Ajuste:= Num;
    Visible:= True;
  end;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Caption:= IntToStr(f_id_Ajuste);
end;

Saludos.