Я сделала,но вот так....И каждый день недели так прописала.Все получилось и заработало.Сдала))))Спасибо вам за помощь тоже!!!))
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='Monday';
if CheckBox1.Checked=True then
Edit1.Text:=UpperCase(Edit1.Text);
|