Izgled forme rešenja ovog zadataka prikazan je na donjoj slici.

   Forma koristi novu komponentu RadioButton koja se može postavljati na fromu i pojedinačno, pri čemu se svako dugme tretira kao posebna grupa što znači da samo jedno dugme može biti odabrano. Da li je dugme odabrano ili nije provera se upotrebom svojstva Checked koje može imati vrednost True(odabrano) ili False(nije odabrano).

   Glavni deo koda ovog programa je sledeći:

.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
 If Srpski.Checked Then Begin Edit1.Text:='Dobar dan'; Label2.Caption:='Srpski' End;
 If Engleski.Checked Then Begin Edit1.Text:='Hello'; Label2.Caption:='Engleski' End;
 If Nemacki.Checked Then Begin Edit1.Text:='Guten Tag'; Label2.Caption:='Nemacki' End;
 If Francuski.Checked Then Begin Edit1.Text:='Bonjour'; Label2.Caption:='Francuski' End;
 If Havajski.Checked Then Begin Edit1.Text:='Aloha'; Label2.Caption:='Havajski' End;
 If Hebrejski.Checked Then Begin Edit1.Text:='Shalom'; Label2.Caption:='Hebrejski' End;
end;

   Objasniti ćemo glavne karakteristike ovog programa:

• Nakon poziva programa biće pozvana procedura Postavi(događaj na formi OnActivate) u kojoj se postavlja unutar RadioButton komponente, prva opcije kao podrazumevana(Srpski jezik) i pozdrav "Dobar dan".
• U proceduri Button1Click ispitujemo koji je jezik odabran, prikazujemo pozdrav kao i naziv jezika.

  Kompletan kod programa možete preuzeti ovde.