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;

[[duilioisola]]

Supongo que el error está aquí.

Código Delphi [-]
(Sender as TButton)

Entiendo que se refiere a un botón del ToolBar.
No creo que sean de la clase TButton.
Quizás son de la clase TSpeedButton, pero al ser componente FMX quizás tengan otra clase.