

__fastcall TForm1::TraducFrancais()
{
      Espanol1->Checked = false;
         English1->Checked = false;
         Francais1->Checked = true;
         Deutsch1->Checked = false;
         Italiano1->Checked = false;
         Portuges1->Checked = false;
         APropos1->Caption = "A Propos";
         Quitter1->Caption = "Quitter...";
         Quitter2->Caption = "Quitter";
         Quitparam1->Caption = "Quitter en sauvegardant les paramtres";
         Options1->Caption = "Options";
         Default1->Caption = "Sauvegarder les paramtres";
         Form2->Caption = "A Propos";
         GroupBoxDate->Caption = "Date / Heure";
                ButtonMtnt->Caption = "Maintenant";
                ButtonDateOK->Caption = "OK";
                LabelTUTC->Caption = "Fuseau horaire (UTC + ";
                LabelDatHeur->Caption = "Date / Heure TU:";
                LabelJJ->Caption = "Jour Julien:";
         GroupBoxAnim->Caption = "Contrle";
         GroupBoxPas->Caption = "Modification";
                BitAjou->Caption = "Ajouter";
                BitRetr->Caption = "Retrancher";
                LabelVal->Caption = "Valeur";
                RadioGroupDelai->Caption = "Dlai";
                RadioGroupDelai->Items->Strings[0] = "Anne";
                RadioGroupDelai->Items->Strings[1] = "Mois";
                RadioGroupDelai->Items->Strings[2] = "Jour";
                RadioGroupDelai->Items->Strings[3] = "Heure";
                RadioGroupDelai->Items->Strings[4] = "Minute";
         GroupBoxReel->Caption = "Animation";
                ButtonMarche->Caption = "Marche";
                ButtonArret->Caption = "Arret";
                BitReel->Caption = "Temps Rel";
         GroupBoxAff->Caption = "Affichage";
         CheckBoxEO->Caption = "Inversion Est-Ouest";
         CheckBoxNS->Caption = "Inversion Nord-Sud";
    //     GroupBoxInfo->Caption = "Informations";
         GroupBoxPolar->Caption = "Vue Polaire";
         GroupBoxZoom->Caption = "Zoom";
         GroupBoxEven->Caption = "Evenements";
                LabelEcl->Caption = "Ecl";
                LabelOcc->Caption = "Occ";
                LabelOmb->Caption = "Omb";
                LabelPass->Caption = "Pass";
         GroupBoxMerid->Caption = "Mridien central de Jupiter";
         GroupBoxGRS->Caption = "Grande Tche Rouge";
                LabelPosAbsGRS->Caption = "Position absolue sur Jupiter ()";
                LabelGRSOuest->Caption = "O";
                LabelGRSEst->Caption ="E";
         ButtonLeg->Caption = "Lgende";
                Form3->Caption = "Lgende";
                Form3->LabelLegO1->Caption = "Ombre de Io";
                Form3->LabelLegO2->Caption = "Ombre d'Europe";
                Form3->LabelLegO3->Caption = "Ombre de Ganymede";
                Form3->LabelLegO4->Caption = "Ombre de Callisto";
                Form3->LabelLeg1->Caption = "Io";
                Form3->LabelLeg2->Caption = "Europe";
                Form3->LabelLeg3->Caption = "Ganymede";
                Form3->LabelLeg4->Caption = "Callisto";
                Form3->LabelLegEcl->Caption = "Satellite clips";
                Form3->LabelDirSol->Caption = "Position angulaire Soleil";
                Form3->LabelGRSVisible->Caption = "Grande Tache Rouge sur la face visible";
                Form3->LabelGRSCache->Caption = "Grande Tache Rouge sur la face invisible";
         LabelNord->Caption = "N";
         LabelSud->Caption = "S";
         LabelEst->Caption = "E";
         LabelOuest->Caption = "O";
         LabelSys1->Caption = "Systme I:";
         LabelSys2->Caption = "Systme II:";
         GroupBoxParam->Caption = "Paramtres";
                LabelLDTJ->Caption = "Distance Terre-Jupiter (UA):";
                LabelLTLTJ->Caption = "Temps-lumire Terre-Jupiter (minutes):";
                LabelLAP->Caption = "Angle de Phase (degrs):";
                LabelElong->Caption = "Elongation (degrs) :";
                LabelVisib->Caption = "Visibilit :";
                LabelLDSJ->Caption = "Distance Soleil-Jupiter (UA):";
                LabelLDST->Caption = "Distance Soleil-Terre (UA):";
                LabelLDiameq->Caption = "Diamtre Equatorial (arcsec):";
         //deuxieme onglet
         TabSheet1->Caption = "   Satellites de Jupiter   ";
         TabSheet2->Caption = "   Ephemerides   ";
         GroupBoxGS->Caption = "Graphique Synoptique";
         GroupBoxDess->Caption = "Dessin pendant...";
         Button8J->Caption = "8 Jours";
         Button1M->Caption = "1 Mois";
         Button2M->Caption = "2 Mois";
         GroupBoxEphLeg->Caption = "Lgende";
         GroupBoxEch->Caption = "Echelle";
         GroupBoxPrint->Caption = "Imprimer";
         BitBtnPport->Caption = "Portrait";
         BitBtnPPays->Caption = "Paysage";
         GroupBoxEphGRS->Caption = "Grande Tache Rouge";
         LabelTextGRS->Caption = "Date / Heure (UTC) du Passage au Mridien de la Grande Tache Rouge:";
         LabelEphDatDep->Caption = "Date et Heure de dpart du calcul (UTC)";
         ButtonEphMtnt->Caption = "Maintenant";
         ButtonEphMinuit->Caption = "Minuit";
         LabelEphEteCal->Caption = "Etendue du calcul (Jours):";
         ButtonEphCalc->Caption = "Calcul";
         ButtonCopie->Caption = "Copier";
         ButtonEnreg->Caption = "Enreg.";
         ButtonEphEff->Caption = "Effacer";
         GroupBoxSauv->Caption = "Sauvegarde";
         ButtonSave->Caption = "Enregistrer... (BMP, WMF, EMF)";
         Label10->Caption = "Io";
        Label11->Caption = "Europe";
        Label12->Caption = "Ganymede";
        Label13->Caption = "Callisto";
}

__fastcall TForm1::TraducItaliano()
{

         Espanol1->Checked = false;
         English1->Checked = false;
         Francais1->Checked = false;
         Deutsch1->Checked = false;
         Italiano1->Checked = true;
         Portuges1->Checked = false;
         APropos1->Caption = " Informazioni";
         Quitter1->Caption = " Esci...";
         Quitter2->Caption = " Esci";
         Quitparam1->Caption = "Esci salvando i dati";
         Options1->Caption = "Opzioni";
         Default1->Caption = "Salvare i dati" ;
         Form2->Caption = "Informazione";
         GroupBoxDate->Caption = "Data / Ora";
                ButtonMtnt->Caption = "Adesso";
                ButtonDateOK->Caption = "OK";
                LabelTUTC->Caption = "Fuso orario (UTC + ";
                LabelDatHeur->Caption = "Data / Ora UTC:";
                LabelJJ->Caption = "Giorno Giuliano:";
         GroupBoxAnim->Caption = "Controllo";
         GroupBoxPas->Caption = "Modifiche";
                BitAjou->Caption = "Aggiungere";
                BitRetr->Caption = "Ridurre";
                LabelVal->Caption = "Valore";
                RadioGroupDelai->Caption = "Durata";
                RadioGroupDelai->Items->Strings[0] = "Anni";
                RadioGroupDelai->Items->Strings[1] = "Mesi";
                RadioGroupDelai->Items->Strings[2] = "Giorni";
                RadioGroupDelai->Items->Strings[3] = "Ore";
                RadioGroupDelai->Items->Strings[4] = "Minuti";
         GroupBoxReel->Caption = "Animazione";
            //    ButtonMarche->Caption = "Vai";
            //    ButtonArret->Caption = " Ferma";
                BitReel->Caption = "Tempo Reale";
         GroupBoxAff->Caption = "Mostra";
         CheckBoxEO->Caption = "Inversione Est-Ovest";
         CheckBoxNS->Caption = "Inversione Nord-Sud";
    //     GroupBoxInfo->Caption = "Informazioni";
         GroupBoxPolar->Caption = "Proiezione polare";
         GroupBoxZoom->Caption = "Zoom";
         GroupBoxEven->Caption = "Eventi";
                LabelEcl->Caption = "Ecl";
                LabelOcc->Caption = "Occ";
                LabelOmb->Caption = "Omb";
                LabelPass->Caption = "Pass";
         GroupBoxMerid->Caption = "Meridiano centrale di Giove";
         GroupBoxGRS->Caption = "Grande Macchia Rossa";
                LabelPosAbsGRS->Caption = "Posizione assoluta su Giove ()";
                LabelGRSOuest->Caption = "O";
                LabelGRSEst->Caption ="E";
         ButtonLeg->Caption = "Leggenda";
                Form3->Caption = "Leggenda";
                Form3->LabelLegO1->Caption = "Ombra di Io";
                Form3->LabelLegO2->Caption = "Ombra di Europa";
                Form3->LabelLegO3->Caption = "Ombra di Ganimede";
                Form3->LabelLegO4->Caption = "Ombra di Callisto";
                Form3->LabelLeg1->Caption = "Io";
                Form3->LabelLeg2->Caption = "Europa";
                Form3->LabelLeg3->Caption = "Ganimede";
                Form3->LabelLeg4->Caption = "Callisto";
                Form3->LabelLegEcl->Caption = "Satellite eclissato";
                Form3->LabelDirSol->Caption = "Posizione angolare Sole";
                Form3->LabelGRSVisible->Caption = "Grande Macchia Rossa sul disco visibile";
                Form3->LabelGRSCache->Caption = "Grande Macchia Rossa su faccia nascosta";
         LabelNord->Caption = "N";
         LabelSud->Caption = "S";
         LabelEst->Caption = "E";
         LabelOuest->Caption = "O";
         LabelSys1->Caption = "Sistema I:";
         LabelSys2->Caption = "Sistema II:";
         GroupBoxParam->Caption = "Impostazioni";
                LabelLDTJ->Caption = "Distanza Terra-Giove (UA):";
                LabelLTLTJ->Caption = "Tempo-luce Terra-Giove (minuti):";
                LabelLAP->Caption = "Angolo di fase (gradi) :";
                LabelElong->Caption = "Elongazione (gradi) :";
                LabelVisib->Caption = "Visibilit :";
                LabelLDSJ->Caption = "Distanza Sole-Giove (UA):";
                LabelLDST->Caption = "Distanza Sole-Terra (UA):";
                LabelLDiameq->Caption = "Diametro Equatoriale (arcsec):";

         //deuxieme onglet
         TabSheet1->Caption = "   Satelliti di Giove  ";
         TabSheet2->Caption = "   Effemeridi ";
         GroupBoxGS->Caption = "Grafico sinottico";
         GroupBoxDess->Caption = "Disegno per...";
         Button8J->Caption = "8 giorni";
         Button1M->Caption = "1 mese";
         Button2M->Caption = "2 mesi";
         GroupBoxEphLeg->Caption = "Legenda";
         GroupBoxEch->Caption = "Scala";
         GroupBoxPrint->Caption = "Stampare";
         BitBtnPport->Caption = "Verticale";
         BitBtnPPays->Caption = "Orizz.";
         GroupBoxEphGRS->Caption = "Grande Macchia Rossa";
         LabelTextGRS->Caption = "Data / Ora (UTC) del passaggio al meridiano della Grande Macchia Rossa:";
         LabelEphDatDep->Caption = "Data e ora dell'inizio del calcolo (UTC)";
         ButtonEphMtnt->Caption = "Adesso";
         ButtonEphMinuit->Caption = "Mezzanotte";
         LabelEphEteCal->Caption = "Estensione del calcolo (giorni):";
         ButtonEphCalc->Caption = "Calcolo";
         ButtonCopie->Caption = "Copiare";
         ButtonEnreg->Caption = "Salvare";
         ButtonEphEff->Caption = "Eliminare";
         GroupBoxSauv->Caption = "Salva";
         ButtonSave->Caption = "Salva come... (BMP, WMF, EMF)";
                  Label10->Caption = "Io";
        Label11->Caption = "Europa";
        Label12->Caption = "Ganimede";
        Label13->Caption = "Callisto";
}

__fastcall TForm1::TraducEnglish()
{
         Francais1->Checked = false;
         English1->Checked = true;
         Espanol1->Checked = false;
         Deutsch1->Checked = false;
         Italiano1->Checked = false;
         Portuges1->Checked = false;
         APropos1->Caption = "About";
         Quitter1->Caption = "Quit...";
         Quitter2->Caption = "Quit";
         Quitparam1->Caption = "Quit saving the parameters";
         Options1->Caption = "Options";
         Default1->Caption = "Save the parameters";
         Form2->Caption = "About";
         GroupBoxDate->Caption = "Date / Time";
                ButtonMtnt->Caption = "Now";
                ButtonDateOK->Caption = "OK";
                LabelTUTC->Caption = "Time Zone: (UTC + ";
                LabelDatHeur->Caption = "Date / Time UTC:";
                LabelJJ->Caption = "Julian Day:";
         GroupBoxAnim->Caption = "Control";
         GroupBoxPas->Caption = "Modification";
                BitAjou->Caption = "Add";
                BitRetr->Caption = "Subtract";
                LabelVal->Caption = "Value";
                RadioGroupDelai->Caption = "Delay";
                RadioGroupDelai->Items->Strings[0] = "Year";
                RadioGroupDelai->Items->Strings[1] = "Month";
                RadioGroupDelai->Items->Strings[2] = "Day";
                RadioGroupDelai->Items->Strings[3] = "Hour";
                RadioGroupDelai->Items->Strings[4] = "Minute";
         GroupBoxReel->Caption = "Animation";
              //  ButtonMarche->Caption = "Run";
              //  ButtonArret->Caption = "Stop";
                BitReel->Caption = "Real Time";
         GroupBoxAff->Caption = "Display";
         CheckBoxEO->Caption = "East-West Inversion";
         CheckBoxNS->Caption = "North-South Inversion";
      //   GroupBoxInfo->Caption = "Informations";
         GroupBoxPolar->Caption = "Polar View";
         GroupBoxZoom->Caption = "Zoom";
         GroupBoxEven->Caption = "Events";
                LabelEcl->Caption = "Ecl";
                LabelOcc->Caption = "Occ";
                LabelOmb->Caption = "Shad";
                LabelPass->Caption = "Pass";
         GroupBoxMerid->Caption = "Jupiter's central meridian";
           GroupBoxGRS->Caption = "Great Red Spot";
                LabelPosAbsGRS->Caption = "Absolute Position on Jupiter ()";
                LabelGRSOuest->Caption = "W";
                LabelGRSEst->Caption ="E";
         ButtonLeg->Caption = "Key";
                Form3->Caption = "Key";
                Form3->LabelLegO1->Caption = "Io's Shadow";
                Form3->LabelLegO2->Caption = "Europa's Shadow";
                Form3->LabelLegO3->Caption = "Ganymede's Shadow";
                Form3->LabelLegO4->Caption = "Callisto's Shadow";
                Form3->LabelLeg1->Caption = "Io";
                Form3->LabelLeg2->Caption = "Europa";
                Form3->LabelLeg3->Caption = "Ganymede";
                Form3->LabelLeg4->Caption = "Callisto";
                Form3->LabelLegEcl->Caption = "Eclipsed Satellite";
                Form3->LabelDirSol->Caption = "Angular position of Sun";
                Form3->LabelGRSVisible->Caption = "Great Red Spot on the visible side";
                Form3->LabelGRSCache->Caption = "Great Red Spot on the hidden side";
         LabelNord->Caption = "N";
         LabelSud->Caption = "S";
         LabelEst->Caption = "E";
         LabelOuest->Caption = "W";
         LabelSys1->Caption = "System I:";
         LabelSys2->Caption = "System II:";
         GroupBoxParam->Caption = "Parameters";
                LabelLDTJ->Caption = "Earth-Jupiter Distance (AU):";
                LabelLTLTJ->Caption = "Light-time Earth-Jupiter (minutes):";
                LabelLAP->Caption = "Phase Angle (degrees):";
                LabelElong->Caption = "Elongation (degrees) :";
                LabelVisib->Caption = "Visibility :";
                LabelLDSJ->Caption = "Sun-Jupiter Distance (AU):";
                LabelLDST->Caption = "Sun-Earth Distance (AU):";
                LabelLDiameq->Caption = "Equatorial Diameter (arcsec):";
         //deuxieme onglet
         TabSheet1->Caption = "   Jupiter Satellites   ";
         TabSheet2->Caption = "   Ephemeris   ";
         GroupBoxGS->Caption = "Synoptic Graph";
         GroupBoxDess->Caption = "Draw for...";
         Button8J->Caption = "8 Days";
         Button1M->Caption = "1 Month";
         Button2M->Caption = "2 Monthes";
         GroupBoxEphLeg->Caption = "Key";
         GroupBoxEch->Caption = "Scale";
         GroupBoxPrint->Caption = "Print";
         BitBtnPport->Caption = "Portrait";
         BitBtnPPays->Caption = "Landscape";
         GroupBoxEphGRS->Caption = "Great Red Spot";
         LabelTextGRS->Caption = "Date / Time (UTC) of Great Red Spot meridian transits:";
         LabelEphDatDep->Caption = "Date / Time for begining the calculation(UTC)";
         ButtonEphMtnt->Caption = "Now";
         ButtonEphMinuit->Caption = "Midnight";
         LabelEphEteCal->Caption = "Extend of calculation (Days):";
         ButtonEphCalc->Caption = "Calculation";
         ButtonCopie->Caption = "Copy";
         ButtonEnreg->Caption = "Save";
         ButtonEphEff->Caption = "Erase";
         GroupBoxSauv->Caption = "Save";
         ButtonSave->Caption = "Save... (BMP, WMF, EMF)";
                  Label10->Caption = "Io";
        Label11->Caption = "Europa";
        Label12->Caption = "Ganymede";
        Label13->Caption = "Callisto";
}


__fastcall TForm1::TraducDeutsch()
{
        Espanol1->Checked = false;
         English1->Checked = false;
         Francais1->Checked = false;
         Deutsch1->Checked = true;
         Italiano1->Checked = false;
         Portuges1->Checked = false;
         APropos1->Caption = "ber";
         Quitter1->Caption = "Abgehen...";
         Quitter2->Caption = "Abgehen";
         Quitparam1->Caption = "Abgehen, retten parameters";
         Options1->Caption = "Options";
         Default1->Caption = "Retten parameters";
         Form2->Caption = "ber";
         GroupBoxDate->Caption = "Datum / Stunde";
                ButtonMtnt->Caption = "Nun";
                ButtonDateOK->Caption = "OK";
                LabelTUTC->Caption = "Zeitzone: (UTC + ";
                LabelDatHeur->Caption = "Datum / Zeit UTC:";
                LabelJJ->Caption = "Julianisch Tag:";
         GroupBoxAnim->Caption = "Kontrolle";
         GroupBoxPas->Caption = "nderung";
                BitAjou->Caption = "Addieren";
                BitRetr->Caption = "Abziehen";
                LabelVal->Caption = "Menge";
                RadioGroupDelai->Caption = "Zeitspanne";
                RadioGroupDelai->Items->Strings[0] = "Jahr";
                RadioGroupDelai->Items->Strings[1] = "Monat";
                RadioGroupDelai->Items->Strings[2] = "Tag";
                RadioGroupDelai->Items->Strings[3] = "Stunde";
                RadioGroupDelai->Items->Strings[4] = "Minuten";
         GroupBoxReel->Caption = "Animation";
              //  ButtonMarche->Caption = "Start";
              //  ButtonArret->Caption = "Halt";
                BitReel->Caption = "Echtzeit";
         GroupBoxAff->Caption = "Anzeige";
         CheckBoxEO->Caption = "Osten-Westen Inversion";
         CheckBoxNS->Caption = "Norden-Sden Inversion";
        // GroupBoxInfo->Caption = "Informations";
         GroupBoxPolar->Caption = "Polarsicht";
         GroupBoxZoom->Caption = "Zoom";
         GroupBoxEven->Caption = "Ereignis";
                LabelEcl->Caption = "Finst";
                LabelOcc->Caption = "Verd";
                LabelOmb->Caption = "Scha";
                LabelPass->Caption = "Pass";
         GroupBoxMerid->Caption = "Jupiter Zentralmeridiane";
         GroupBoxGRS->Caption = "Groe Rote Fleck";
                LabelPosAbsGRS->Caption = "Absolut Position auf Jupiter ()";
                LabelGRSOuest->Caption = "W";
                LabelGRSEst->Caption ="E";
         ButtonLeg->Caption = "Bildtext";
                Form3->Caption = "Bildtext";
                Form3->LabelLegO1->Caption = "Io Schatten";
                Form3->LabelLegO2->Caption = "Europa Schatten";
                Form3->LabelLegO3->Caption = "Ganymed Schatten";
                Form3->LabelLegO4->Caption = "Kallisto Schatten";
                Form3->LabelLeg1->Caption = "Io";
                Form3->LabelLeg2->Caption = "Europa";
                Form3->LabelLeg3->Caption = "Ganymed";
                Form3->LabelLeg4->Caption = "Kallisto";
                Form3->LabelLegEcl->Caption = "Satellitfinsternis";
                Form3->LabelDirSol->Caption = "Angular Sonnestellung";
                         Form3->LabelGRSVisible->Caption = "Groe Rote Fleck auf sichtseite";
                Form3->LabelGRSCache->Caption = "Groe Rote Fleck auf unsichtseite";
         LabelNord->Caption = "N";
         LabelSud->Caption = "S";
         LabelEst->Caption = "O";
         LabelOuest->Caption = "W";
         LabelSys1->Caption = "System I:";
         LabelSys2->Caption = "System II:";
         GroupBoxParam->Caption = "Parameter";
                LabelLDTJ->Caption = "Erde-Jupiter Abstand (AU):";
                LabelLTLTJ->Caption = "Lichtzeit Erde-Jupiter (minute):";
                LabelLAP->Caption = "Phasewinkel (grad):";
                LabelElong->Caption = "Elongation (grad) :";
                LabelVisib->Caption = "Sichtbarkeit :";
                LabelLDSJ->Caption = "Sonne-Jupiter Abstand (AU):";
                LabelLDST->Caption = "Sonne-Erde Abstand (AU):";
                LabelLDiameq->Caption = "Aquatorialdurchmesser (arcsec):";
          //deuxieme onglet
         TabSheet1->Caption = "   Jupitersatelliten   ";
         TabSheet2->Caption = "   Ephemerides   ";
         GroupBoxGS->Caption = "Synoptische Graphik";
         GroupBoxDess->Caption = "Zeichnung whrend...";
         Button8J->Caption = "8 Tag";
         Button1M->Caption = "1 Monat";
         Button2M->Caption = "2 Monat";
         GroupBoxEphLeg->Caption = "Bildtext";
         GroupBoxEch->Caption = "Skala";
         GroupBoxPrint->Caption = "Druck";
         BitBtnPport->Caption = "Portrait";
         BitBtnPPays->Caption = "Landschaft";
         GroupBoxEphGRS->Caption = "Groe Rote Fleck";
         LabelTextGRS->Caption = "Datum / Zeit (UTC) der mittlerer bergang der Grande Tache Rouge:";
         LabelEphDatDep->Caption = "Datum / Zeit der Berechnungsbeginn (UTC)";
         ButtonEphMtnt->Caption = "Nun";
         ButtonEphMinuit->Caption = "Mitternacht";
         LabelEphEteCal->Caption = "Dauer der Berechnung (Tag):";
         ButtonEphCalc->Caption = "Berechnung";
         ButtonCopie->Caption = "Kopie";
         ButtonEnreg->Caption = "Retten";
         ButtonEphEff->Caption = "Lschen";
         GroupBoxSauv->Caption = "Retten";
         ButtonSave->Caption = "Retten... (BMP, WMF, EMF)";
         Label10->Caption = "Io";
        Label11->Caption = "Europa";
        Label12->Caption = "Ganymed";
        Label13->Caption = "Kallisto";
}

__fastcall TForm1::TraducEspanol()
{
          Francais1->Checked = false;
         English1->Checked = false;
         Espanol1->Checked = true;
         Deutsch1->Checked = false;
         Italiano1->Checked = false;
         Portuges1->Checked = false;
         APropos1->Caption = "Acerca de";
         Quitter1->Caption = "Salir...";
         Quitter2->Caption = "Salir";
         Quitparam1->Caption = "Salir salvando a los parametros";
         Options1->Caption = "Opciones";
         Default1->Caption = "Salvar a los parametros";
         Form2->Caption = "Acerca de";
         GroupBoxDate->Caption = "Fecha / Hora";
                ButtonMtnt->Caption = "Ahora";
         ButtonDateOK->Caption = "OK";
                LabelTUTC->Caption = "Huso horario (UTC + ";
                LabelDatHeur->Caption = "Fecha / Hora UTC:";
                LabelJJ->Caption = "Da Juliano:";
         GroupBoxAnim->Caption = "Controlo";
         GroupBoxPas->Caption = "Modificacin";
                BitAjou->Caption = "Aadir";
                BitRetr->Caption = "Sustraer";
                LabelVal->Caption = "Valor";
                RadioGroupDelai->Caption = "Plazo";
                RadioGroupDelai->Items->Strings[0] = "Ao";
                RadioGroupDelai->Items->Strings[1] = "Mes";
                RadioGroupDelai->Items->Strings[2] = "Da";
                RadioGroupDelai->Items->Strings[3] = "Hora";
                RadioGroupDelai->Items->Strings[4] = "Minuto";
        GroupBoxReel->Caption = "Animacin";
                //ButtonMarche->Caption = "Anda";
                //ButtonArret->Caption = "Parra";
                BitReel->Caption = "Tiempo Real";
         GroupBoxAff->Caption = "Grfico";
         CheckBoxEO->Caption = "Inversin Este-Oeste";
         CheckBoxNS->Caption = "Inversin Norte-Sur";
    //     GroupBoxInfo->Caption = "Informaciones";
         GroupBoxPolar->Caption = "Vista Polar";
         GroupBoxZoom->Caption = "Zoom";
         GroupBoxEven->Caption = "Sucesos";
                LabelEcl->Caption = "Ecl";
                LabelOcc->Caption = "Occ";
                LabelOmb->Caption = "Somb";
                LabelPass->Caption = "Pass";
         GroupBoxMerid->Caption = "Meridiano central de Jupiter";
         GroupBoxGRS->Caption = "Gran Mancha Roja";
                LabelPosAbsGRS->Caption = "Posicion absoluta en Jupiter ()";
                LabelGRSOuest->Caption = "O";
                LabelGRSEst->Caption ="E";
         ButtonLeg->Caption = "Leyenda";
                Form3->Caption = "Leyenda";
                Form3->LabelLegO1->Caption = "Sombra de Io";
                Form3->LabelLegO2->Caption = "Sombra de Europe";
                Form3->LabelLegO3->Caption = "Sombra de Ganmedes";
                Form3->LabelLegO4->Caption = "Sombra de Calisto";
                Form3->LabelLeg1->Caption = "Io";
                Form3->LabelLeg2->Caption = "Europa";
                Form3->LabelLeg3->Caption = "Ganmedes";
                Form3->LabelLeg4->Caption = "Calisto";
                Form3->LabelLegEcl->Caption = "Satellite eclipsado";
                Form3->LabelDirSol->Caption = "Posicin angular del Sol";
                Form3->LabelGRSVisible->Caption = "Gran Mancha Roja en la cara visible";
                Form3->LabelGRSCache->Caption = "Gran Mancha Roja en la cara invisible";
         LabelNord->Caption = "N";
         LabelSud->Caption = "S";
         LabelEst->Caption = "E";
         LabelOuest->Caption = "O";
         LabelSys1->Caption = "Sistema I:";
         LabelSys2->Caption = "Sistema II:";
         GroupBoxParam->Caption = "Parametros";
                LabelLDTJ->Caption = "Distancia Tierra-Jpiter (UA):";
                LabelLTLTJ->Caption = "Tiempo-luz Tierra-Jpiter (minutos):";
                LabelLAP->Caption = "Angulo de fase (grados):";
                LabelElong->Caption = "Elongacin (grados) :";
                LabelVisib->Caption = "Visibilidad :";
                LabelLDSJ->Caption = "Distancia Sol-Jpiter (UA):";
                LabelLDST->Caption = "Distancia Sol-Tierra (UA):";
                LabelLDiameq->Caption = "Diametro Ecuatorial (arcsec):";
         //2eme onglet  
         TabSheet1->Caption = "   Satellites de Jpiter   ";
         TabSheet2->Caption = "   Efemrides   ";
         GroupBoxGS->Caption = "Grfico Sinptico";
         GroupBoxDess->Caption = "Dibujo durante...";
         Button8J->Caption = "8 Das";
         Button1M->Caption = "1 Mes";
         Button2M->Caption = "2 Meses";
         GroupBoxEphLeg->Caption = "Leyenda";
         GroupBoxEch->Caption = "Escala";
         GroupBoxPrint->Caption = "Imprimir";
         BitBtnPport->Caption = "Retrato";
         BitBtnPPays->Caption = "Paisaje";
         GroupBoxEphGRS->Caption = "Gran Mancha Roja";
         LabelTextGRS->Caption = "Fecha / Hora (UTC) del paso al meridiano de la Gran Mancha Roja:";
         LabelEphDatDep->Caption = "Fecha y Hora del principio del clculo (UTC)";
         ButtonEphMtnt->Caption = "Ahora";
         ButtonEphMinuit->Caption = "Media Noche";
         LabelEphEteCal->Caption = "Amplitud del clculo (Das):";
         ButtonEphCalc->Caption = "Clculo";
         ButtonCopie->Caption = "Copiar";
         ButtonEnreg->Caption = "Salvar";
         ButtonEphEff->Caption = "Borrar";
         GroupBoxSauv->Caption = "Salvaguardar";
         ButtonSave->Caption = "Salva... (BMP, WMF, EMF)";
         Label10->Caption = "Io";
        Label11->Caption = "Europa";
        Label12->Caption = "Ganmedes";
        Label13->Caption = "Calisto";
}

__fastcall TForm1::TraducPortuges()
{
         Francais1->Checked = false;
         English1->Checked = false;
         Espanol1->Checked = false;
         Deutsch1->Checked = false;
         Italiano1->Checked = false;
         Portuges1->Checked = true;
APropos1->Caption = "Acerca";
Quitter1->Caption = "Sair...";
Quitter2->Caption = "Sair";
Quitparam1->Caption = "Sair Guardando os Parmetros";
Options1->Caption = "Opes";
Default1->Caption = "Guardar os Parmetros";
Form2->Caption = "Acerca";
GroupBoxDate->Caption = "Data / Hora";
ButtonMtnt->Caption = "Agora";
ButtonDateOK->Caption = "OK";
LabelJJ->Caption = "Dia Juliano:";
LabelTUTC->Caption = "Fuso horrio (UTC + ";
LabelDatHeur->Caption = "Data / Hora TU:";
GroupBoxAnim->Caption = "Controlo";
GroupBoxPas->Caption = "Modificao";
BitAjou->Caption = "Acrescentar";
BitRetr->Caption = "Retirar";
LabelVal->Caption = "Valor";
RadioGroupDelai->Caption = "Durao";
RadioGroupDelai->Items->Strings[0] = "Ano";
RadioGroupDelai->Items->Strings[1] = "Ms";
RadioGroupDelai->Items->Strings[2] = "Dia";
RadioGroupDelai->Items->Strings[3] = "Hora";
RadioGroupDelai->Items->Strings[4] = "Minuto";
GroupBoxReel->Caption = "Animao";
ButtonMarche->Caption = "Arranca";
ButtonArret->Caption = "Pra";
BitReel->Caption = "Tempo Real";
GroupBoxAff->Caption = "Exibir";
CheckBoxEO->Caption = "Inverso Este-Oeste";
CheckBoxNS->Caption = "Inverso Norte-Sul";
// GroupBoxInfo->Caption = "Informaes";
GroupBoxPolar->Caption = "Vista Polar";
GroupBoxZoom->Caption = "Ampliao";
GroupBoxEven->Caption = "Eventos";
LabelEcl->Caption = "Ecl";
LabelOcc->Caption = "Oc";
LabelOmb->Caption = "Somb";
LabelPass->Caption = "Pass";
GroupBoxMerid->Caption = "Meridiano Central de Jpiter";
GroupBoxGRS->Caption = "Grande Mancha Vermelha";
LabelPosAbsGRS->Caption = "Posio Absoluta em  Jpiter ()";
LabelGRSOuest->Caption = "O";
LabelGRSEst->Caption ="E";
ButtonLeg->Caption = "Legenda";
Form3->Caption = "Legenda";
Form3->LabelLegO1->Caption = "Sombra  de Io";
Form3->LabelLegO2->Caption = "Sombra de Europa";
Form3->LabelLegO3->Caption = "Sombra de Ganimedes";
Form3->LabelLegO4->Caption = "Sombra de Calisto";
Form3->LabelLeg1->Caption = "Io";
Form3->LabelLeg2->Caption = "Europa";
Form3->LabelLeg3->Caption = "Ganimedes";
Form3->LabelLeg4->Caption = "Calisto";
Form3->LabelLegEcl->Caption = "Satlite Eclipsado";
Form3->LabelDirSol->Caption = "Posio Angular do Sol";
Form3->LabelGRSVisible->Caption = "Grande Mancha Vermelha no lado visvel";
Form3->LabelGRSCache->Caption = "Grande Mancha Vermelha no lado invisvel";
LabelNord->Caption = "N";
LabelSud->Caption = "S";
LabelEst->Caption = "E";
LabelOuest->Caption = "O";
LabelSys1->Caption = "Sistema I:";
LabelSys2->Caption = "Sistema II:";
GroupBoxParam->Caption = "Parmetros";
LabelLDTJ->Caption = "Distncia Terra-Jpiter (UA):";
LabelLTLTJ->Caption = "Tempo-luz Terra-Jpiter (minutos):";
LabelLAP->Caption = "ngulo de Fase (graus):";
LabelElong->Caption = "Alongamento (graus) :";
LabelVisib->Caption = "Visibilidade :";
LabelLDSJ->Caption = "Distncia Sol-Jpiter (UA):";
LabelLDST->Caption = "Distncia Sol-Terra (UA):";
LabelLDiameq->Caption = "Dimetro Equatorial (seg. de arco):";
//deuxieme onglet
TabSheet1->Caption = " Satlites de Jpiter ";
TabSheet2->Caption = " Efemrides ";
GroupBoxGS->Caption = "Grfico Sinptico";
GroupBoxDess->Caption = "Desenhar para...";
Button8J->Caption = "8 Dias";
Button1M->Caption = "1 Ms";
Button2M->Caption = "2 Meses";
GroupBoxEphLeg->Caption = "Legenda";
GroupBoxEch->Caption = "Escala";
GroupBoxPrint->Caption = "Imprimir";
BitBtnPport->Caption = "Retrato";
BitBtnPPays->Caption = "Paisagem";
GroupBoxEphGRS->Caption = "Grande Mancha Vermelha";
LabelTextGRS->Caption = "Data / Hora (UTC) da Passagem pelo Meridiano da Grande Mancha Vermelha:";
LabelEphDatDep->Caption = "Data e Hora para o incio do clculo (UTC)";
ButtonEphMtnt->Caption = "Agora";
ButtonEphMinuit->Caption = "Meia-Noite";
LabelEphEteCal->Caption = "Extenso do Clculo (Dias):";
ButtonEphCalc->Caption = "Clculo";
ButtonCopie->Caption = "Copiar";
ButtonEnreg->Caption = "Guardar";
ButtonEphEff->Caption = "Apagar";
GroupBoxSauv->Caption = "Guardar";
ButtonSave->Caption = "Guardar... (BMP, WMF, EMF)";
Label10->Caption = "Io";
Label11->Caption = "Europa";
Label12->Caption = "Ganimedes";
Label13->Caption = "Calisto";
}
