Накосячил... запуск двух окон

[Jleksern]

Убейте меня не помню что и как я накосячил месяц назад...

Делфи Я открываю только по праздникам и знания мои ничтожны малы.

Суть: запускаю своё приложение, открывается две формы, form1 и form3...
Не могу найти, где запускается form3, при старте программы.
Тут как бы чисто..

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sLabel, sEdit, sMemo,
  sButton, sSkinManager, Vcl.Buttons, sBitBtn, sGroupBox, Vcl.ExtCtrls, sPanel,
  acSlider, acMagn, sSkinProvider, Vcl.ComCtrls, Vcl.ToolWin, sToolBar;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sBitBtn1: TsBitBtn;
    sBitBtn2: TsBitBtn;
    sBitBtn3: TsBitBtn;
    sBitBtn4: TsBitBtn;
    sBitBtn5: TsBitBtn;
    sBitBtn6: TsBitBtn;
    procedure sBitBtn2Click(Sender: TObject);
    procedure sBitBtn1Click(Sender: TObject);

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2, Unit3;



procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.sBitBtn2Click(Sender: TObject);
begin
form2.show;
end;

end.

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

[Vad33]

А исходники остальных форм(модулей)?

[Jleksern]

Сообщение от Vad33

А исходники остальных форм(модулей)?

никаких модулей кроме шаблонов Alpha не использую!

[Аватар]

Visible=True для Form3

[Jleksern]

Сообщение от Аватар

Visible=True для Form3

Аааа точно, провтыкал....
Спасибо больше!