For i := 5 To 10 Do RichEdit.Lines[i] : = UpperCase(RichEdit.Lines[i]);
RichEdit.Text:=AnsiUpperCase(RichEdit.Text); RichEdit.Text:=AnsiLowerCase(RichEdit.Text);
RichEdit.Lines[LaLigne]:=AnsiUpperCase(RichEdit.Lines[LaLigne]); RichEdit.Lines[LaLigne]:=AnsiLowerCase(RichEdit.Lines[LaLigne]);