error run

procedure TFmenu.FormShow(Sender: TObject);
var
  myform: Tfconection;
  FileIni: TIniFile;
begin

  FileIni := TIniFile.Create(Extractfilepath(Application.exename) + 'Setup.ini');
  // Cek Koneksi
  try
    try
      with ZConnectiondb do
      begin
        ZConnectiondb.Connected := False;
        // Baca data Koneksi dari file ini
        ZConnectiondb.Database := FileIni.ReadString('Connection', 'Database', '');
        ZConnectiondb.Hostname := FileIni.ReadString('Connection', 'Hostname', '');
        ZConnectiondb.LibraryLocation := Extractfilepath(Application.exename) + FileIni.ReadString('Connection', 'Library', '');
        ZConnectiondb.Password := FileIni.ReadString('Connection', 'password', '');
        ZConnectiondb.Port := FileIni.ReadInteger('Connection', 'Port', 0);
        ZConnectiondb.Protocol := FileIni.ReadString('Connection', 'Protocol', '');
        ZConnectiondb.User := FileIni.ReadString('Connection', 'User', '');
        ZConnectiondb.Connected := True;

        // Set Koneksi Komponen yang berhubungan dengan database
      end;
    except
      ShowMessage('Koneksi ke Database Gagal' + chr(10) + ' ' + 'Silahkan Setting Ulang...');
      myform := TFconection.Create(nil);
      myform.Showmodal;
    end;
  finally
    FileIni.Free;
  end;
  // End Cek
end;