procedure TForm1.FormCreate(Sender: TObject);
begin
  form2 := TForm.Create(self);
  form2.ShowModal;
  Label2 := TLabel.Create(form2);
  label2.Parent := form2;
  label2.Caption := 'SIHDIOSJDIOSDJI';
  Label2.Visible := true;

end;