Harf boyutu başlığı altında boyut değiştirme

Harf Boyutu başlığı altında büyük,küçük,normal boyutta yazdıran programın kodu.

Kodu;

procedure TForm1.BUYUK1Click(Sender: TObject);

begin

edit1.CharCase:=ecUpperCase;

end;

procedure TForm1.KUCUK1Click(Sender: TObject);

begin

edit1.CharCase:=ecLowerCase;

end;

 procedure TForm1.NORMAL1Click(Sender: TObject);

begin

edit1.CharCase:=ecNormal;

end;

 end.