Código SQL [-]
SELECT Inicial FROM PremisasAcc WHERE Codigo LIKE 'CPSV_2025*'

Código Delphi [-]
STemp: String;
    begin
//le asigno su valor a una lista q usare posteriormente, mediante una funcion que abre un adoquery (aqui es donde no 
//devuelve ningun registro, y deberia devolver) y me devuelve esa lista
      STemp:= DM.DevolverListaCodigos('SELECT Inicial FROM PremisasAcc WHERE Codigo LIKE '+QuotedStr('CPSV_2025*'),'Inicial');

Código Delphi [-]
function TDM.DevolverListaCodigos(Consulta, Codigo: String): String;
  var
    QLista: TADOQuery;
  begin
    QLista:= TADOQuery.Create(Self);
    QLista.Connection:= DM.ADOConn;
    ActivarQuery(QLista,Consulta,True,False);
    Result:= '';
    if not QLista.IsEmpty
    then
    begin
      QLista.First;
      Consulta:= TipoCampo(QLista.FieldList.Find(Codigo));
      while not QLista.Eof do
      begin
        if (Consulta='String') OR (Consulta='WideString')
        then
          if Result=''
          then Result:= QuotedStr(QLista.FieldByName(Codigo).AsString)
          else Result:= Result+','+QuotedStr(QLista.FieldByName(Codigo).AsString)
        else
          if Result=''
          then Result:= QLista.FieldByName(Codigo).AsString
          else Result:= Result+','+QLista.FieldByName(Codigo).AsString;
        QLista.Next;
      end;
      Result:= '('+Result+')';
    end;
    QLista.Free;
  end;

Código Delphi [-]
procedure TForm1.btnBuscaClick(Sender: TObject);
var busca :string;
begin
  try
    try
      busca:= '%'+trim(self.edtBusca.Text)+'%';
      self.Conexion.Connected:= true;
      self.DataSetPrueba.CommandText :='select * from prueba where nombre like :busca';
      self.DataSetPrueba.Parameters.ParamByName('busca').Value := busca;
      self.DataSetPrueba.Active:= true;
      if self.DataSetPrueba.RecordCount>0 then
      begin
        showmessage('Se encontró ' + inttostr(self.DataSetPrueba.RecordCount) + ' registro(s)');
      end;
    except
      abort;
    end;
  finally
    self.Conexion.Connected:= false;
  end;
end;