Memo Großschreibung zu Kleinschreibung ..

[KLS]

Indirekt geht es.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  temp : string;
begin
  Randomize;
  Memo.Lines.Text:= LowerCase(Memo.Lines.Text);
  temp := memo.Text;
  for i := 1 to length(Memo.Text) do if Random <= 0.5 then
  begin
    temp[i] := UpCase(temp[i]);
    memo.Text := temp;
  end;
end;