IF CBsearch.Text <> '' THEN
    ShowMessage('Text has been inserted')
  ELSE
    ShowMessage('Nothing has been inserted');