unit U_tela1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls, Vcl.Menus;

type
  TF_Tela1 = class(TForm)
    Label1: TLabel;
    btn_abre_tela2: TSpeedButton;
    procedure btn_abre_tela2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Tela1: TF_Tela1;

implementation

{$R *.dfm}

uses U_tela2;

procedure TF_Tela1.btn_abre_tela2Click(Sender: TObject);


begin

   F_tela2 := TF_tela2.Create(self);
   F_tela2.Show;

end;

end.