Vzdelanie

z:='';
  s:='';
  if chbS.Checked then z:=z+' '+chbS.Caption;
  if chbP.Checked then z:=z+' '+chbP.Caption;
  if chbA.Checked then z:=z+' '+chbA.Caption;
  if chbZ.Checked then s:=s+' '+chbZ.Caption;
  if chbSS.Checked then s:=s+' '+chbSS.Caption;
  if chbV.Checked then s:=s+' '+chbV.Caption;
  ShowMessage('Meno: '+inputM.Caption+sLineBreak+'Záujmy: '+z+sLineBreak+'Vzdelanie: '+s);