[Tala]

Tienes Razón!!!... Aqui anexo la solición... Lo que debia realizar era una comparacion con los items de los listbox y los itemindex

Código Delphi [-]
cual := ListBoxResult.ItemIndex;
id_pregunta := StrToInt(ListBoxResultId.Items[cual]);

F_Examen.btncalificar.Enabled:=false;

DMExamen.ADOQueryExamen.Close;
DMExamen.ADOQueryExamen.Open;

  with DMExamen.ADOQueryExamen do
  begin
   close;
   sql.Text:=('SELECT *  '+
             'FROM preguntas, tipo_pregunta, carrera '+
             'WHERE preguntas.sesion= '+ QuotedStr(F_Examen.sesion) +
             ' AND preguntas.id_tipo_pregunta=tipo_pregunta.id_tipo_pregunta'+
             ' AND preguntas.anno='+ QuotedStr(F_Examen.ano));
   open;
  end;

DMExamen.DataSourceExamen.AutoEdit:=true;

  DMExamen.ADOQueryExamen.Filter := 'id_pregunta = '+ inttostr(id_pregunta);
  DMExamen.ADOQueryExamen.Filtered := true;

for n:=0 to F_Examen.ListBox_pregunta.Items.Count -1 do begin
  id:= StrToInt(F_Examen.ListBox_pregunta.Items[n]);
  if (id_pregunta = id) then
    begin
       for j:=0 to F_Examen.ListBox_aleatorios.Items.Count -1 do begin
        id_ale:= StrToInt(F_Examen.ListBox_aleatorios.Items[j]);
        if (n = id_ale)then
           F_Examen.num:=j;
      end;

     // F_Examen.num:=n;//F_Examen.ListBox_pregunta.ItemIndex;
    end;

 end;