invalid class typecast en listview

[giantonti1801]

Hola amigo tengo un listview donde le coloque un multiselect item pero al ejecutarlo me da un error invalid class typecast, y aunque le doy click en acepra de este error y me deja seguir sin ningun problema pero no es bueno dejarlo alli que aparezca. le envio el codigo talvez hay algo que esta generando este error:

Código Delphi [-]
procedure TForm1.TMSFMXToolBarButtonMultiSelectClick(Sender: TObject);
begin
    ListView12.EditMode := not ListView12.EditMode;
    (Sender as TButton).Text := 'EditMode '+ListView12.EditMode.ToString(TUseBoolStrs.True);
end;