Из этой темы попробовал сделать так:
function FindSearchBox(const ARootControl: TControl): TSearchBox;
var
Child: TControl;
begin
Result := nil;
for Child in ARootControl.Controls do
if Child is TSearchBox then
Exit(TSearchBox(Child));
end;
procedure TFormAdd.SpeedButton1Click(Sender: TObject);
var
SearchBox: TSearchBox;
begin
SearchBox:=FindSearchBox(FormMain.ListView1);
if SearchBox <> nil then
begin
SearchBox.Text:='';
end;
end;
Метод работает.