[dr. F.I.N.]

Все куда прозаичнее

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked
  then Edit1.CharCase := ecUpperCase
  else Edit1.CharCase := ecLowerCase;
end;