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.