procedure TForm1.final_loaderTimer(Sender: TObject);
begin try
final_loader.Enabled :=false;
form2.Show;
except end;End;