Fórum busca avançada #212978

procedure TFormPesquisaImagem.BitBtn1Click(Sender: TObject);
var
    PalavraChave1: String;
    PalavraChave2: String;
begin
    if ComboBox1.Text = ´´ then
    begin
        ShowMessage(´Digite o nome da Imagem!´);
        ComboBox1.SetFocus;
        Exit;
    end;

        PalavraChave1 := ComboBox1.Text;
        PalavraChave2:=Combobox1.Text;
         TableTimeCode.FindKey([PalavraChave1]);
         TableTimeCode.IndexName := ´IPalavraChave1´;
         TableTimeCode.SetRange([PalavraChave1],[PalavraChave1]);
          TableTimeCode.FindKey([PalavraChave2]); 
          TableTimeCode.IndexName := ´IPalavraChave2´;
          TableTimeCode.SetRange([PalavraChave2],[PalavraChave2]);
        
    if TableTimeCode.Eof then
    begin
        TableTimeCode.CancelRange;
        ShowMessage(´Nenhuma imagem encontrada!´);
        Height:=131;
        ComboBox1.SetFocus;
    end
     else
     begin
     DBGrid1.SetFocus;
    end;
   end;