Как написать условие "Если текст введен в Searchbox"?

If текст введен в Searchbox Then Searchbox.setfocus 
Else Dbgrid.setFocus

procedure TFgas.FormKeyPress(Sender: TObject; var Key: Char);
begin
 
if not    (Memo1.Visible = true)
       or (Memo2.Visible = true)
       or (key=#32)              //Hari
        then
 begin
 
 if (key in ['A'..'Z','a'..'z'])
 
   then
   begin
       if EditSearch.Visible=false then
         begin
          FIND:=4;
          AllKeyPress(Sender,key);    // переход в DBGrid
         end
         else begin
          Fmain.Timer1.Interval:=2500;
          x:=char(key);
          y:=y+x;
         end;
 
 
 
     if CONNECT=1
      then DBGridPrgAnsi.Options:=DBGridPrgAnsi.Options+[dgRowselect]-[dgEditing,dgAlwaysShowSelection]
       else DBGridPrg.Options:=DBGridPrg.Options -[dgEditing,dgAlwaysShowSelection]+ [dgRowselect];
 
      end
 
   else if   (key in ['0'..'9','.'])
   then
   begin
     if EditSearch.Visible=true then
       begin
         Fmain.Timer1.Interval:=2500;
         x:=char(key);
         y:=y+x;
       end;
 
 end;
 end;
 
 
end;
end;

  if Sender is TSearchBox then ...