[edwin.simon]

Hola buena tarde, para todos.
estoy haciendo una pantalla para buscar un registro por tres opciones diferente usando un RadioGroup, todo corre bien pero cuando busco por código no me dice nada y por cédula o nombre me presenta un error de sistnaxi en la clausura From, a continuación como estoy haciendo la busqueda.

Código Delphi [-]
procedure TFrm_Consulta.Edit1Change(Sender: TObject);
const
     STRSQL = 'Select * From Carnet';
begin
 case RadioGroup1.ItemIndex of
 0 : begin
     Qry_BuscarRegistro.Close;
  if (Edit1.Text = '') then begin
      Qry_BuscarRegistro.SQL.Text := STRSQL;
  end
  else begin
       Qry_BuscarRegistro.SQL.Text := STRSQL +
       ' WHERE Codigo_Carnet LIKE ' +QuotedStr('%' +Edit1.Text+ '%');
       end;
       Qry_BuscarRegistro.Open;
       end;
end;
end;
procedure TFrm_Consulta.Edit2Change(Sender: TObject);
const
STRSQL = 'Select * From Carnet';
begin
 case RadioGroup1.ItemIndex of
 1 : begin
     qry_BuscarRegistro.Close;
  if (Edit2.Text = '') then begin
      Qry_BuscarRegistro.SQL.Text := STRSQL;
  end
  else begin
       Qry_BuscarRegistro.SQL.Text := STRSQL +
       'WHERE Codigo_Pasaporte' +QuotedStr('%' +Edit2.Text+ '%');
       end;
       Qry_BuscarRegistro.Open;
end;
end;
end;

procedure TFrm_Consulta.Edit3Change(Sender: TObject);
const
STRSQL = 'Select * From Carnet';
begin
      case RadioGroup1.ItemIndex of
      2 : begin
          Qry_BuscarRegistro.Close;
       if (Edit3.Text = '') then begin
          Qry_BuscarRegistro.SQL.Text := STRSQL
          end
       else begin
          Qry_BuscarRegistro.SQL.Text := STRSQL +
          'where Nombre like '+QuotedStr('%'+Edit3.Text+ '%');
          end;
          Qry_BuscarRegistro.Open;
          end;
          end;

end;