property ExecuteSearch: boolean
var aSearch: TAdapterDMS_SearchWrapper; begin aSearch := TAdapterDMS_SearchWrapper.Create; try aSearch.SearchText := 'Test'; aSearch.SearchField := 0; aSearch.SearchKind := 0; aSearch.ExecuteSearch := true; aSearch.Searchdlg(true); finally aSearch.Free; end; end;