Параметрический запрос по полю счетчика из эдита

procedure TLog.Edit_CodChange(Sender: TObject);
begin
if String.IsNullOrEmpty(Edit_Cod.Text) then begin
DM.ADOQuery1.SQL.Clear;
DM.ADOQuery1.SQL.Add('SELECT * FROM brut WHERE LEN(TRIM(pass)) > 0');
DM.ADOQuery1.Active:=True;
                                         end else begin
     DM.ADOQuery1.Sql.Clear;
     DM.ADOQuery1.Sql.Add('SELECT * FROM Brut WHERE Cod = :FindValue');
     DM.ADOQuery1.Parameters.ParamByName('FindValue').Value:=Edit_Cod.text;
     DM.ADOQuery1.Open;
end;
end;