Код:
...
if CheckBox1 {:=true} then
Edit1.Text:=LowerCase((Sender as TButton).Caption)
else {:=false}
Edit1.Text:=UpperCase((Sender as TButton).Caption);
...
З.Ы. Забыл объяснить что это код клика любой из семи кнопок, задаётся в обжект инспекторе всем остальным.