interface

uses
  SysUtils, Classes, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;

type
  TForm1 = class(TForm)
   ButtonMaj: TButton;
   ButtonMin: TButton;
   procedure FormCreate(Sender: TObject);
   procedure ButtonMajClick(Sender: TObject);
   procedure ButtonMinClick(Sender: TObject);
  private
   { Déclarations privées }
  public
   { Déclarations publiques }
  end;

  EditMajMin=class(TEdit)
    private
     Etat:(Maj,Min,rien);
    public
     constructor Create(AOwner: TComponent); override;
     procedure SetMajuscule;
     procedure SetMinuscule;
  end;

var
  Form1: TForm1;
  UnEdit:EditMajMin;

implementation

{$R *.dfm}
constructor EditMajMin.Create(AOwner: TComponent);
begin
  inherited;
  Etat:=rien;
  setBounds(50,50,300,30);
  text:='Entrez Un auTre Texte Si VOUs le VOUlEZ !';
end;

procedure EditMajMin.SetMajuscule;
begin
  if Etat<>Maj then
  begin
  Self.Text:= Uppercase(Self.Text);
  Etat:=Maj
  end
  else MessageDlg('Le texte est déjà en MAJUSCULES !!', mtWarning , [mbOk], 0);
end;

procedure EditMajMin.SetMinuscule;
begin
  if Etat<>Min then
  begin
  Self.Text:= Lowercase(Self.Text);
  Etat:=Min
  end
  else MessageDlg('Le texte est déjà en minuscules !!', mtWarning , [mbOk], 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  UnEdit:=EditMajMin.Create(self);
  UnEdit.parent:=self;
end;

procedure TForm1.ButtonMajClick(Sender: TObject);
begin
UnEdit.SetMajuscule;
end;

procedure TForm1.ButtonMinClick(Sender: TObject);
begin
UnEdit.SetMinuscule;
end;

end.