uses
Forms,
frm_main in 'frm_main.pas' {Form_Main},
......
.......(略)
{$R *.res}
begin
Application.Initialize;
Form_login:=TForm_login.create(application);
Form_login.showmodal;
if Form_login.ModalResult=1 then
begin
Application.CreateForm(TForm_main, Form_main);
Form_login.Free;
form_login:=nil;
Application.Run;
end
else
begin
Form_login.Free;
form_login:=nil;
end;